From c79450dd07a6196545b47c71f721c3655fa1d707 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 22 Jan 1999 06:40:39 +0000
Subject: [PATCH] * eval.c (SCM_CEVAL): Added ENTER_APPLY in code for
 SCM_IM_APPLY.

---
 libguile/eval.c | 1 +
 1 file changed, 1 insertion(+)

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;