Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 727)
+++ /trunk/ccl/lib/macros.lisp	(revision 728)
@@ -1590,5 +1590,5 @@
                     `(:metaclass (find-class ',(cadr option))))
                    (t
-                    (list `',option-name `',(cadr option))))))
+                    (list `',option-name `',(cdr option))))))
              (canonicalize-slot-spec (slot)
                (if (null slot) (signal-program-error "Illegal slot NIL"))