diff --git a/src/eval.c b/src/eval.c
index 9bdcf4b..28cf9b1 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2836,9 +2836,9 @@ apply_lambda (Lisp_Object fun, Lisp_Object args, ptrdiff_t count)
   /* Do the debug-on-exit now, while arg_vector still exists.  */
   if (backtrace_debug_on_exit (specpdl + count))
     {
+      tem = call_debugger (list2 (Qexit, tem));
       /* Don't do it again when we return to eval.  */
       set_backtrace_debug_on_exit (specpdl + count, false);
-      tem = call_debugger (list2 (Qexit, tem));
     }
   SAFE_FREE ();
   return tem;