--- a/Metaclass.st	Sat Aug 29 16:51:55 1998 +0200
+++ b/Metaclass.st	Sat Aug 29 17:01:25 1998 +0200
@@ -1818,16 +1818,23 @@
     "when a new class enters a namespace, all accessors to the same-named
      class in smalltalk must be recompiled"
 
-    aNamespace allBehaviorsDo:[:aClass |
-	aClass ~~ someClass ifTrue:[
-	    aClass isLoaded ifTrue:[
+    |blk|
+
+    blk := [:aClass |
+        aClass ~~ someClass ifTrue:[
+            aClass isLoaded ifTrue:[
 "/                Transcript showCR:'recompiling methods in ''' , aClass name , ''' accessing ''' , aGlobalKey , ''''.
 "/                Transcript endEntry.
-		aClass recompileMethodsAccessingGlobal:aGlobalKey.
-		aClass class recompileMethodsAccessingGlobal:aGlobalKey.
-		"/ actually - must eventually recompile USERS of this namespace too
-	    ]
-	]
+                aClass recompileMethodsAccessingGlobal:aGlobalKey.
+                aClass class recompileMethodsAccessingGlobal:aGlobalKey.
+                "/ actually - must eventually recompile USERS of this namespace too
+            ]
+        ]
+    ].
+    aNamespace isNamespace ifTrue:[
+        aNamespace allBehaviorsDo:blk
+    ] ifFalse:[
+        aNamespace privateClassesDo:blk
     ]
 
     "Modified: 31.1.1997 / 11:22:57 / cg"
@@ -1968,6 +1975,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.132 1998-08-25 07:27:51 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.133 1998-08-29 15:01:25 cg Exp $'
 ! !
 Metaclass initialize!