Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 642)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 643)
@@ -754,5 +754,8 @@
           (remove-method gf (car methods))
           (return))))
-    (%set-defgeneric-keys gf nil))
+    (%set-defgeneric-keys gf nil)
+    (inner-lfun-bits gf (%ilogior (%ilsl $lfbits-gfn-bit 1)
+                                  (%ilogand $lfbits-args-mask
+                                            (lfun-bits (%method-function method))))))
   gf)
 
@@ -2047,5 +2050,5 @@
 
 (defun %class-primary-p (class)
-  (if (typep class 'std-class)
+  (if (typep class 'slots-class)
     (%class-get class :primary-p)
     t))