--- a/BrowserView.st	Wed Aug 23 19:33:37 2006 +0200
+++ b/BrowserView.st	Wed Aug 23 19:34:19 2006 +0200
@@ -3514,9 +3514,7 @@
     nameSpaceList do:[:aNamespace |
         aNamespace allClassesDo:[:aClass |
             aClass isMeta ifFalse:[
-                (aClass isNameSpace not 
-                or:[aClass == NameSpace 
-                or:[aClass == Smalltalk]]) ifTrue:[
+                (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
                     (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
                         cat := aClass category.
                         cat isNil ifTrue:[
@@ -14557,7 +14555,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.799 2006-08-23 12:22:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.800 2006-08-23 17:34:19 cg Exp $'
 ! !
 
 BrowserView initialize!