--- a/BrowserView.st	Thu Jan 02 20:08:40 1997 +0100
+++ b/BrowserView.st	Thu Jan 02 20:21:42 1997 +0100
@@ -1231,22 +1231,13 @@
 listOfAllNamespaces
     "return a list of all namespaces"
 
-    |set|
-
     allNamespaces isNil ifTrue:[
-        set := IdentitySet with:Smalltalk.
-        Smalltalk allBehaviorsDo:[:aClass |
-            (aClass isNamespace 
-            and:[aClass ~~ Namespace
-            and:[aClass ~~ Smalltalk]]) ifTrue:[
-                set add:aClass
-            ]
-        ].
-        allNamespaces := set
+        allNamespaces := Namespace allNamespaces.
     ].
     ^ allNamespaces
 
     "Created: 20.12.1996 / 19:18:03 / cg"
+    "Modified: 2.1.1997 / 20:18:43 / cg"
 !
 
 listOfNamespaces
@@ -8802,6 +8793,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.230 1996-12-23 15:05:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.231 1997-01-02 19:21:42 cg Exp $'
 ! !
 BrowserView initialize!