--- a/NameSpace.st	Mon Feb 18 16:11:24 2002 +0100
+++ b/NameSpace.st	Mon Feb 18 17:22:24 2002 +0100
@@ -444,19 +444,24 @@
 allNamespaces
     "return a list of all namespaces"
 
+    ^ self allNamespacesIn:Smalltalk
+!
+
+allNamespacesIn:anEnvironment
+    "return a list of all namespaces"
+
     |set|
 
-    set := IdentitySet with:Smalltalk.
-    Smalltalk allClassesDo:[:aClass |
+    set := IdentitySet with:anEnvironment.
+    anEnvironment allClassesDo:[:aClass |
         (aClass isNameSpace 
         and:[aClass ~~ NameSpace
-        and:[aClass ~~ Smalltalk]]) ifTrue:[
+        and:[aClass ~~ anEnvironment
+        and:[aClass ~~ Smalltalk]]]) ifTrue:[
             set add:aClass
         ]
     ].
     ^ set
-
-    "Created: 2.1.1997 / 20:17:40 / cg"
 !
 
 isNameSpace
@@ -480,5 +485,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.41 2000-09-03 14:44:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.42 2002-02-18 16:22:24 cg Exp $'
 ! !