--- a/Metaclass.st	Tue Aug 10 20:08:15 1999 +0200
+++ b/Metaclass.st	Tue Aug 10 20:26:36 1999 +0200
@@ -1311,6 +1311,10 @@
 "/                ].
                 self copyInvalidatedMethodsFrom:oldClass for:newClass accessingAny:changeSet1.
                 newClass recompileInvalidatedMethods.
+            ] ifFalse:[
+                "/ instance methods still work
+
+                self copyMethodsFrom:oldClass for:newClass
             ]
         ] ifTrue:[
 
@@ -2015,6 +2019,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.150 1999-08-04 14:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.151 1999-08-10 18:26:36 cg Exp $'
 ! !
 Metaclass initialize!