diff --git a/libguile/eval.c b/libguile/eval.c
index 02811b1d5..04575e104 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1937,6 +1937,7 @@ dispatch:
 	      if (scm_badargsp (SCM_CAR (SCM_CODE (proc)), t.arg1))
 		goto wrongnumargs;
 #endif
+	      ENTER_APPLY;
 	      /* Copy argument list */
 	      if (SCM_IMP (t.arg1))
 		argl = t.arg1;