Index: /trunk/source/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/source/level-1/l1-clos-boot.lisp	(revision 15473)
+++ /trunk/source/level-1/l1-clos-boot.lisp	(revision 15474)
@@ -868,4 +868,5 @@
                 (not (logbitp $lfbits-keys-bit mbits)))
            (logbitp $lfbits-aok-bit mbits)
+           (logbitp $lfbits-aok-bit gbits)
            (progn
              (unless gkeys (setq gkeys (%defgeneric-keys gf)))