Index: trunk.diverses/src/interpret.c
===================================================================
--- trunk.diverses/src/interpret.c	(Revision 2255)
+++ trunk.diverses/src/interpret.c	(Arbeitskopie)
@@ -17959,6 +17959,7 @@
 #ifdef USE_NEW_INLINES
                 inter_context = NULL;
 #endif /* USE_NEW_INLINES */
+                tracedepth++;
                 eval_instruction(code, sp);
                 /* The result is on the stack (inter_sp) */
                 return;
Index: trunk.diverses/src/simulate.c
===================================================================
--- trunk.diverses/src/simulate.c	(Revision 2255)
+++ trunk.diverses/src/simulate.c	(Arbeitskopie)
@@ -4047,7 +4047,10 @@
     }
     else
     {
-        if (!apply(cb->function.named.name, ob, num_arg + nargs))
+        if (toplevel)
+            tracedepth = 0;
+
+        if (!sapply(cb->function.named.name, ob, num_arg + nargs))
             transfer_svalue(&apply_return_value, &const0);
     }