1 files changed, 3 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 1aeb1c6a..fe45ae89 100644
--- a/eval.c
+++ b/eval.c
@@ -4677,6 +4677,9 @@ static val me_load_for(val form, val menv)
 
     if (consp(arg)) {
       val kind = car(arg);
+      if (!symbolp(kind))
+        expand_error(form, lit("~s: clause symbol expected, not ~s"),
+                     sym, kind, nao);
       if (kind != usr_var_s && kind != fun_s && kind != macro_s
           && kind != struct_s && kind != pkg_s)
         expand_error(form, lit("~s: unrecognized clause symbol ~s"),