--- a/Metaclass.st	Wed Nov 15 13:38:06 2000 +0100
+++ b/Metaclass.st	Wed Nov 15 13:38:53 2000 +0100
@@ -517,6 +517,10 @@
 
     oldClass changed:#definition.
     self changed:#definition.
+    self nameSpace changed:#classDefinition with:self.
+    self nameSpace ~~ Smalltalk ifTrue:[
+        Smalltalk changed:#classDefinition with:self.
+    ].
 
     ^ newMetaclass
 
@@ -1879,7 +1883,8 @@
     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.
@@ -1890,7 +1895,8 @@
     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 +2145,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.173 2000-10-25 08:44:35 src Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.174 2000-11-15 12:38:53 cg Exp $'
 ! !
 Metaclass initialize!