1 files changed, 4 insertions, 4 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index e5a3e7b2a7c..e23d835cf10 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -861,11 +861,11 @@ If the third argument is incorrect, Emacs may crash.  */)
 
         case Bcondition_case:
           {
-            Lisp_Object v1;
-            v1 = POP;
-            v1 = Fcons (POP, v1);
+            Lisp_Object handlers, body;
+            handlers = POP;
+            body = POP;
             BEFORE_POTENTIAL_GC ();
-            TOP = Fcondition_case (Fcons (TOP, v1));
+            TOP = internal_lisp_condition_case (TOP, body, handlers);
             AFTER_POTENTIAL_GC ();
             break;
           }