--- a/Metaclass.st	Thu Feb 05 16:15:30 1998 +0100
+++ b/Metaclass.st	Thu Feb 05 18:02:18 1998 +0100
@@ -265,7 +265,7 @@
 "/        Transcript showCR:'recompiling methods accessing ' , addedNames printString ,  '...'.
 "/        Transcript endEntry.
 
-        "recompile class-methods"
+        "recompile class-methods"    
         newMetaclass recompileMethodsAccessingAny:addedNames.
     ] ifFalse:[
         "
@@ -352,6 +352,7 @@
             newSub setSuperclass:(oldToNew at:oldSuper).
         ].
         newSub setMethodDictionary:(aSubclass methodDictionary copy).
+        newSub class setMethodDictionary:(aSubclass class methodDictionary copy).
         newSub setName:(aSubclass name).
         newSub classVariableString:(aSubclass classVariableString).
         newSub setComment:(aSubclass comment).
@@ -1887,6 +1888,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.120 1997-11-02 17:46:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.121 1998-02-05 17:02:18 tz Exp $'
 ! !
 Metaclass initialize!