Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 301)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 302)
@@ -2435,5 +2435,6 @@
     (when wrapper
       (setf (%class.own-wrapper class) nil)
-      (make-wrapper-obsolete wrapper))))
+      (make-wrapper-obsolete wrapper)))
+  class)
 
 (defmethod make-instances-obsolete ((class funcallable-standard-class))
@@ -2441,7 +2442,11 @@
     (when wrapper
       (setf (%class.own-wrapper class) nil)
-      (make-wrapper-obsolete wrapper))))
-
-(defmethod make-instances-obsolete ((class structure-class)))
+      (make-wrapper-obsolete wrapper)))
+  class)
+
+(defmethod make-instances-obsolete ((class structure-class))
+  ;; could maybe warn that instances are obsolete, but there's not
+  ;; much that we can do about that.
+  class)