1 files changed, 1 insertions, 1 deletions
diff --git a/util.lisp b/util.lisp
index 3a5320d..08c7d1c 100644
--- a/util.lisp
+++ b/util.lisp
@@ -169,7 +169,7 @@
                                   (quote ,(car this-clause)))
                         `(eq ,object-sym
                              (quote ,(car this-clause))))
-                   (progn ,(cdr this-clause))
+                   (progn ,@(cdr this-clause))
                    (case ,object-sym ,@rest)))))))
 
 (%defun* list-eqp (list1 list2)