--- a/Smalltalk.st	Sat Mar 29 15:23:40 1997 +0100
+++ b/Smalltalk.st	Tue Apr 01 18:04:03 1997 +0200
@@ -806,7 +806,13 @@
         "/ must rename privateClasses as well
         privateClasses do:[:aPrivateClass |
             self renameClass:aPrivateClass
-                 to:(newSym , '::' , aPrivateClass nameWithoutPrefix)   
+                 to:(newSym , '::' , aPrivateClass nameWithoutPrefix).
+        
+            Transcript showCR:'recompiling methods in ''' , newNameSpace name , ''' accessing ''' , oldName , '::' , aPrivateClass nameWithoutPrefix , ''' ...'.
+            Class class
+                recompileGlobalAccessorsTo:(oldName , '::' , aPrivateClass nameWithoutPrefix) asSymbol 
+                in:newNameSpace 
+                except:nil.
         ]
     ].
 
@@ -834,7 +840,9 @@
                 recompileGlobalAccessorsTo:oldBaseName asSymbol 
                 in:newNameSpace 
                 except:nil.
-        ]
+        ].
+
+        
     ].
 
     "Created: 29.10.1995 / 19:58:32 / cg"
@@ -3624,5 +3632,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.231 1997-03-27 10:20:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.232 1997-04-01 16:04:03 ca Exp $'
 ! !