--- a/BrowserView.st	Thu Nov 07 17:28:51 1996 +0100
+++ b/BrowserView.st	Thu Nov 07 18:08:20 1996 +0100
@@ -1175,12 +1175,14 @@
     (self listOfNamespaces) do:[:aNamespace |
         Smalltalk allBehaviorsDo:[:aClass |
             aClass isMeta ifFalse:[
-                cat := aClass category.
-                cat isNil ifTrue:[
-                    cat := '* no category *'
-                ].
-                cat ~= 'obsolete' ifTrue:[
-                    newList add:cat
+                aClass isNamespace ifFalse:[
+                    cat := aClass category.
+                    cat isNil ifTrue:[
+                        cat := '* no category *'
+                    ].
+                    cat ~= 'obsolete' ifTrue:[
+                        newList add:cat
+                    ]
                 ]
             ]
         ]
@@ -1188,7 +1190,7 @@
 
     ^ newList asOrderedCollection sort.
 
-    "Modified: 26.10.1996 / 11:25:45 / cg"
+    "Modified: 7.11.1996 / 18:01:49 / cg"
 !
 
 listOfNamespaces
@@ -3440,13 +3442,16 @@
     (aCategory = '* hierarchy *') ifTrue:[
         newList := OrderedCollection new.
         self classHierarchyOf:Object do:[:aClass :lvl|
-            nm := aClass name.
-            (classNames includes:nm) ifFalse:[
-                (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                    Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
-                ] ifFalse:[
-                    classNames add:nm.
-                    newList add:(String new:lvl) , nm
+            aClass isNamespace ifFalse:[
+                nm := aClass name.
+            
+                (classNames includes:nm) ifFalse:[
+                    (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
+                        Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+                    ] ifFalse:[
+                        classNames add:nm.
+                        newList add:(String new:lvl) , nm
+                    ]
                 ]
             ]
         ].
@@ -3457,10 +3462,12 @@
 
     (aCategory = '* all *') ifTrue:[
         Smalltalk allBehaviorsDo:[:aClass |
-            nm := aClass name.
-            (classNames includes:nm) ifFalse:[
-                classNames add:nm.
-                newList add:aClass
+            aClass isNamespace ifFalse:[
+                nm := aClass name.
+                (classNames includes:nm) ifFalse:[
+                    classNames add:nm.
+                    newList add:aClass
+                ]
             ]
         ]
     ] ifFalse:[
@@ -3474,17 +3481,19 @@
             |thisCategory|
 
             aClass isMeta ifFalse:[
-                thisCategory := aClass category.
-                ((thisCategory = searchCategory) 
-                or:[thisCategory = aCategory]) ifTrue:[
-                    nm := aClass name.
-                    (classNames includes:nm) ifFalse:[
-                        (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
-                            Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
-                        ] ifFalse:[
-                            classNames add:nm.
-                            newList add:aClass
-                        ].
+                aClass isNamespace ifFalse:[
+                    thisCategory := aClass category.
+                    ((thisCategory = searchCategory) 
+                    or:[thisCategory = aCategory]) ifTrue:[
+                        nm := aClass name.
+                        (classNames includes:nm) ifFalse:[
+                            (Smalltalk at:nm asSymbol) ~~ aClass ifTrue:[
+                                Transcript showCR:'oops - unbound class: ' , nm , '; ignored.'.
+                            ] ifFalse:[
+                                classNames add:nm.
+                                newList add:aClass
+                            ].
+                        ]
                     ]
                 ]
             ]
@@ -3509,7 +3518,7 @@
 
     ^ newList
 
-    "Modified: 5.11.1996 / 22:38:00 / cg"
+    "Modified: 7.11.1996 / 18:06:06 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -8335,6 +8344,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.206 1996-11-07 15:33:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.207 1996-11-07 17:08:20 cg Exp $'
 ! !
 BrowserView initialize!