--- a/BrowserView.st	Mon Feb 18 11:04:25 2002 +0100
+++ b/BrowserView.st	Mon Feb 18 17:21:45 2002 +0100
@@ -1604,7 +1604,7 @@
 delayedUpdate:something with:someArgument from:changedObject
     |list selector oldMethod|
 
-    (changedObject == Smalltalk) ifTrue:[
+    (changedObject == environment) ifTrue:[
         something == #methodInClassRemoved ifTrue:[
             "/ ignored; I am dependent of individual class update messages
             ^ self
@@ -11995,12 +11995,12 @@
     "return a list of all namespaces"
 
     allNamespaces isNil ifTrue:[
-        allNamespaces := NameSpace allNamespaces.
+        allNamespaces := NameSpace allNamespacesIn:environment.
+        allNamespaces remove:environment.
 
         showAllNamespaces ifFalse:[
             "/ only topLevel namespaces are shown
             "/ i.e. ignore subspaces 
-
             allNamespaces := allNamespaces select:[:ns | ns isTopLevelNamespace].
         ]
     ].
@@ -14923,6 +14923,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.711 2002-02-15 12:41:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.712 2002-02-18 16:21:45 cg Exp $'
 ! !
 BrowserView initialize!