Index: /trunk/ccl/level-1/l1-clos.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos.lisp	(revision 889)
+++ /trunk/ccl/level-1/l1-clos.lisp	(revision 890)
@@ -1332,5 +1332,6 @@
       (cerror (format nil "Change the class of ~s to ~s." gf gf-class)
 	      "The class of the existing generic function ~s is not ~s"
-	      gf gf-class))
+	      gf gf-class)
+      (change-class gf gf-class))
     (apply #'reinitialize-instance gf initargs)))