1 files changed, 1 insertions, 1 deletions

diff --git a/src/editfns.c b/src/editfns.c
index fa6881c35b3..698abeadae8 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -402,7 +402,7 @@ Executes BODY just like `progn'.")
   register Lisp_Object val;
   int count = specpdl_ptr - specpdl;
 
-  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
+  record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ());
 
   val = Fprogn (args);
   return unbind_to (count, val);