diff --git a/macros.lisp b/macros.lisp
index 8424ce8c50ed5eca69a12f3eae540a92cf210dbd..031109d6b31f634c88fb17ca9367bbd7b964c0fa 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -199,7 +199,7 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed."
                      (check-variable elt "keyword parameter")
                      (setf elt (if normalize-keyword
                                    (list (list (make-keyword elt) elt) nil nil)
-                                   (list elt)))))
+                                   elt))))
               (push elt keys))
              (&aux
               (if (consp elt)