Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 600)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 601)
@@ -2193,5 +2193,5 @@
       (unless (pl-search initargs (%car key.form))
         (setq defaults
-              (list* (funcall (cadr key.form))
+              (list* (funcall (caddr key.form))
                      (%car key.form)
                      defaults))))