1 files changed, 1 insertions, 1 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index 753f149ae01..40729cbd453 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1051,7 +1051,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 
         CASE (Bsave_current_buffer): /* Obsolete since ??.  */
         CASE (Bsave_current_buffer_1):
-          record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ());
+          record_unwind_current_buffer ();
           NEXT;
 
         CASE (Bsave_window_excursion): /* Obsolete since 24.1.  */