1 files changed, 1 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index 2b71fe243cb..0310e165919 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1187,7 +1187,7 @@ usage: (unwind-protect BODYFORM UNWINDFORMS...)  */)
   Lisp_Object val;
   int count = SPECPDL_INDEX ();
 
-  record_unwind_protect (0, Fcdr (args));
+  record_unwind_protect (Fprogn, Fcdr (args));
   val = Feval (Fcar (args));
   return unbind_to (count, val);
 }