--- a/Metaclass.st	Thu Apr 16 18:59:19 1998 +0200
+++ b/Metaclass.st	Sat Apr 18 14:01:17 1998 +0200
@@ -314,7 +314,7 @@
 
     delta := newNames size - oldNames size.
 
-    "/ preserve existing classInstVar values (but not thise from Class)
+    "/ preserve existing classInstVar values (but not those from Class)
     newMetaclass allInstVarNames do:[:nm |
         |v|
 
@@ -487,6 +487,10 @@
             self checkForAliasesOf:oldSubClass with:newSubClass.
         ].
         ObjectMemory flushCachesFor:oldSubClass.
+
+        oldSubClass privateClassesDo:[:aClass |
+            aClass class setOwningClass:newSubClass
+        ].
     ].
 
     "tell dependents ..."
@@ -498,7 +502,7 @@
 
     "Created: / 29.10.1995 / 19:57:08 / cg"
     "Modified: / 1.4.1997 / 15:44:09 / stefan"
-    "Modified: / 7.2.1998 / 21:27:08 / cg"
+    "Modified: / 18.4.1998 / 14:00:39 / cg"
 ! !
 
 !Metaclass methodsFor:'copying'!
@@ -1940,6 +1944,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.122 1998-02-07 20:30:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.123 1998-04-18 12:01:17 cg Exp $'
 ! !
 Metaclass initialize!