X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/645e38d9ac0cc1415b2d7d41f3996007dbfbdafd..a2abcb58235c31fcdc75aa5a5f0360c7d3b5a3a0:/libguile/eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index 06d2af0c6..3b0e8847b 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1912,7 +1912,7 @@ dispatch:
 	  while (SCM_NNULLP (t.arg1 = SCM_CDR (t.arg1)))
 	    {
 	      SCM_SETCAR (env, scm_current_module_lookup_closure ());
-	      SCM_CEVAL (SCM_CAR (x), env);
+	      SIDEVAL (SCM_CAR(x), env);
 	      x = t.arg1;
 	    }
 	  /* once more, for the last form */