Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5266)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5267)
@@ -3161,8 +3161,10 @@
 
 ;;; Need to define this for all of the BUILT-IN-CLASSes.
+(defmethod class-prototype ((class class))
+  (%class.prototype class))
+
 (defmethod class-prototype ((class std-class))
   (or (%class.prototype class)
       (setf (%class.prototype class) (allocate-instance class))))
-