1 files changed, 4 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 15adbcaa..a2f014b9 100644
--- a/eval.c
+++ b/eval.c
@@ -4146,6 +4146,10 @@ static val do_expand(val form, val menv)
 
         if (!bindable(car(args)))
           not_bindable_warning(form, car(args));
+
+        if (car(args_ex) != car(args))
+          eval_error(form, lit("~s: misapplied to symbol macro ~a"), sym,
+                     car(args), nao);
       }
 
       if (!lookup_fun(menv, sym) && !special_operator_p(sym)) {