Index: /branches/working-0711/ccl/lib/macros.lisp
===================================================================
--- /branches/working-0711/ccl/lib/macros.lisp	(revision 13235)
+++ /branches/working-0711/ccl/lib/macros.lisp	(revision 13236)
@@ -1813,5 +1813,6 @@
                                ',(multiple-value-bind (bits keyvect) (encode-lambda-list lambda-list t)
                                    (unless bits ;; verify failed
-                                     (signal-program-error "Invalid lambda list ~s" (car args)))
+                                     (signal-program-error "Invalid lambda list ~s"
+                                                           (find-if #'listp args)))
                                    (%cons-def-info 'defmethod bits keyvect nil specializers qualifiers))
                                ,env))