Index: /trunk/ccl/level-1/l1-clos.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos.lisp	(revision 643)
+++ /trunk/ccl/level-1/l1-clos.lisp	(revision 644)
@@ -426,5 +426,5 @@
   (error "Class ~s can't be finalized." class))
 
-(defmethod class-primary-p ((class std-class))
+(defmethod class-primary-p ((class slots-class))
   (%class-primary-p class))
 
@@ -464,4 +464,7 @@
                   (unless (eq (%slot-definition-name (car sup-slotds))
                               (%slot-definition-name (car primary-slotds)))
+                    (format t "~&name of sup-slotds = ~s, name of prim = ~s"
+                            (%slot-definition-name (car sup-slotds))
+                            (%slot-definition-name (car primary-slotds)))
                     (error "While initializing ~s:~%~
                             attempt to mix incompatible primary classes:~%~