1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index bdb1f0a7..b46cfb05 100644
--- a/eval.c
+++ b/eval.c
@@ -3986,7 +3986,7 @@ static val do_expand(val form, val menv)
       val expr = pop(&args);
       val body = args;
       val new_menv = make_var_shadowing_env(menv, get_param_syms(params));
-      val ctx_expr_ex = expand(expr, menv);
+      val ctx_expr_ex = expand(ctx_expr, menv);
       cons_bind (params_ex, body_ex0,
                  expand_params(params, body, menv, t, form));
       val body_ex = expand_progn(body_ex0, new_menv);