Index: /trunk/ccl/level-1/l1-clos.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos.lisp	(revision 731)
+++ /trunk/ccl/level-1/l1-clos.lisp	(revision 732)
@@ -1280,6 +1280,6 @@
 	  (unless (or (eq gf-class *standard-generic-function-class*)
 		      (subtypep gf-class *generic-function-class*))
-	    (error "Class ~S is not a subclass of ~S")
-	    gf-class *generic-function-class*)))
+	    (error "Class ~S is not a subclass of ~S"
+                   gf-class *generic-function-class*))))
       (unless (eq mcomb missing)
 	(unless (typep mcomb 'method-combination)
@@ -1467,11 +1467,7 @@
                       #'%%0-arg-dcode
 		      0
-		      ;; Set the AOK (&allow-other-keys) bit without
-		      ;; setting the KEYS bit, to indicate that we
-		      ;; don't know anything about this gf's
-		      ;; lambda-list.
 		      (logior (ash 1 $lfbits-gfn-bit)
-			      (ash 1 $lfbits-aok-bit)))))
-    (setf (gf.hash fn) (strip-tag-to-fixnum fn)
+                              (ash 1 $lfbits-aok-bit)))))
+         (setf (gf.hash fn) (strip-tag-to-fixnum fn)
 	  (slot-vector.instance slots) fn
 	  (%gf-dispatch-table-gf dt) fn)