diff --git a/src/bytecode.c b/src/bytecode.c
index 1ee5ae395578235afeb7caec5a2316bfad0b115d..98acc336db7c2982521888b1c62c22f4fbe62b72 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash.  */)
 	case Bunwind_protect:
 	  /* The function record_unwind_protect can GC.  */
 	  BEFORE_POTENTIAL_GC ();
-	  record_unwind_protect (0, POP);
+	  record_unwind_protect (Fprogn, POP);
 	  AFTER_POTENTIAL_GC ();
-	  (specpdl_ptr - 1)->symbol = Qnil;
 	  break;
 
 	case Bcondition_case: