* eval.c (me_case): Fix quoting issue in expansion.

1 files changed, 3 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 4e6f8009..93486bc9 100644
--- a/eval.c
+++ b/eval.c
@@ -2595,7 +2595,9 @@ static val me_case(val form, val menv)
 
     ptail = list_collect(ptail,
                          cons(list(if3(atom(keys), eqfuncsym, memfuncsym),
-                                   tformsym, keys, nao),
+                                   tformsym, 
+                                   if3(atom(keys), keys, list(quote_s, keys, nao)),
+                                   nao),
                               forms));
   }