--- a/BrowserView.st	Mon Jan 17 12:20:15 2000 +0100
+++ b/BrowserView.st	Mon Jan 17 12:30:18 2000 +0100
@@ -7915,7 +7915,11 @@
     |someCategories existingCategories box|
 
     actualClass notNil ifTrue:[
-	someCategories := actualClass allCategories
+	someCategories := actualClass allCategories asSet.
+	actualClass superclass allSubclasses do:[:cls |
+	    someCategories addAll:cls categories
+	].
+	someCategories := someCategories asOrderedCollection
     ] ifFalse:[
 	"
 	 mhmh - offer some typical categories ...
@@ -13649,6 +13653,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.586 2000-01-13 17:14:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.587 2000-01-17 11:30:18 cg Exp $'
 ! !
 BrowserView initialize!