Index: /branches/working-0711/ccl/library/lispequ.lisp
===================================================================
--- /branches/working-0711/ccl/library/lispequ.lisp	(revision 7752)
+++ /branches/working-0711/ccl/library/lispequ.lisp	(revision 7753)
@@ -1310,7 +1310,8 @@
   class-cell-class
   class-cell-instantiate
-  )
-
-(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance))
+  class-cell-extra                      ; wrapper in some cases
+  )
+
+(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance nil))