--- a/NameSpace.st	Fri Nov 10 17:24:35 2006 +0100
+++ b/NameSpace.st	Fri Nov 10 17:24:58 2006 +0100
@@ -495,13 +495,14 @@
 
     set := IdentitySet with:anEnvironment.
     anEnvironment allClassesDo:[:aClass |
-        (aClass isNameSpace 
-        and:[aClass ~~ anEnvironment
-        and:[aClass ~~ Smalltalk]]) ifTrue:[
+        (aClass isRealNameSpace 
+        and:[aClass ~~ anEnvironment]) ifTrue:[
             set add:aClass
         ]
     ].
     ^ set
+
+    "Modified: / 10-11-2006 / 17:12:02 / cg"
 !
 
 allNamespaces
@@ -580,5 +581,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.63 2006-11-10 16:02:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.64 2006-11-10 16:24:58 cg Exp $'
 ! !