--- a/Metaclass.st	Wed Feb 24 11:06:20 1999 +0100
+++ b/Metaclass.st	Wed Feb 24 11:07:19 1999 +0100
@@ -1841,9 +1841,12 @@
         ]
     ].
     aNamespace isNamespace ifTrue:[
-        aNamespace allBehaviorsDo:blk
+        aNamespace allBehaviorsDo:[:cls |
+            blk value:cls.
+            cls allPrivateClassesDo:blk
+        ]
     ] ifFalse:[
-        aNamespace privateClassesDo:blk
+        aNamespace allPrivateClassesDo:blk
     ]
 
     "Modified: 31.1.1997 / 11:22:57 / cg"
@@ -1984,6 +1987,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.134 1999-02-03 10:55:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.135 1999-02-24 10:07:19 cg Exp $'
 ! !
 Metaclass initialize!