--- a/Metaclass.st	Wed Oct 25 10:14:20 2000 +0200
+++ b/Metaclass.st	Wed Oct 25 10:44:55 2000 +0200
@@ -1868,18 +1868,18 @@
             newMethod := oldMethod copy.
 "/            Smalltalk silentLoading ifFalse:[
 "/                Transcript showCR:'invalidating ' , selector , '...'.
-"/	      ].
+"/            ].
             newMethod makeInvalid.
         ] ifFalse:[
             newMethod := oldMethod.
+            newMethod mclass:nil.
         ].
         newMethodDict at:selector put:newMethod
     ].
     newClass methodDictionary:newMethodDict.
 
     "Modified: 7.6.1996 / 08:33:52 / stefan"
-    "Modified: 19.6.1997 / 18:27:09 / cg"
-!
+    "Modified: 19.6.1997 / 18:27:09 / cg"!
 
 copyMethodsFrom:oldClass for:newClass
     "copy all methods from oldClass to newClass.
@@ -1888,9 +1888,9 @@
      to recompile the class methods."
 
     newClass methodDictionary:(oldClass methodDictionary copy).
+    newClass methodDictionary keysAndValuesDo:[:sel :mthd | mthd mclass:nil.].
 
-    "Modified: 7.6.1996 / 08:34:43 / stefan"
-!
+    "Modified: 7.6.1996 / 08:34:43 / stefan"!
 
 differentInstanceVariableOffsetsIn:class1 and:class2
     "return a set of instance variable names which have different
@@ -2139,6 +2139,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.172 2000-10-09 13:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.173 2000-10-25 08:44:35 src Exp $'
 ! !
 Metaclass initialize!