--- a/BrowserView.st	Tue Mar 21 12:24:17 2000 +0100
+++ b/BrowserView.st	Tue Mar 21 13:50:47 2000 +0100
@@ -8194,33 +8194,35 @@
      Offer existing superclass categories in box to help avoiding
      useless typing."
 
-    |someCategories existingCategories box|
+    |someCategories existingCategories box superclass|
 
     actualClass notNil ifTrue:[
-	someCategories := actualClass allCategories asSet.
-	actualClass superclass allSubclasses do:[:cls |
-	    someCategories addAll:cls categories
-	].
-	someCategories := someCategories asOrderedCollection
+        someCategories := actualClass allCategories asSet.
+        (superclass := actualClass superclass) notNil ifTrue:[
+            superclass allSubclasses do:[:cls |
+                someCategories addAll:cls categories
+            ]
+        ].
+        someCategories := someCategories asOrderedCollection
     ] ifFalse:[
-	"
-	 mhmh - offer some typical categories ...
-	"
-	showInstance ifTrue:[
-	    someCategories := #('accessing' 
-				'initialization'
-				'private' 
-				'printing & storing'
-				'queries'
-				'testing'
-			       )
-	] ifFalse:[
-	    someCategories := #(
-				'documentation'
-				'initialization'
-				'instance creation'
-			       ).
-	].
+        "
+         mhmh - offer some typical categories ...
+        "
+        showInstance ifTrue:[
+            someCategories := #('accessing' 
+                                'initialization'
+                                'private' 
+                                'printing & storing'
+                                'queries'
+                                'testing'
+                               )
+        ] ifFalse:[
+            someCategories := #(
+                                'documentation'
+                                'initialization'
+                                'instance creation'
+                               ).
+        ].
     ].
     someCategories sort.
 
@@ -8229,13 +8231,13 @@
     "
     existingCategories := methodCategoryListView list.
     existingCategories notNil ifTrue:[
-	someCategories := someCategories select:[:cat | (existingCategories includes:cat) not].
+        someCategories := someCategories select:[:cat | (existingCategories includes:cat) not].
     ].
     someCategories := someCategories asSet asOrderedCollection sort.
 
     box := self listBoxTitle:'name of new method category:'
-		      okText:'create'
-			list:someCategories.
+                      okText:'create'
+                        list:someCategories.
     box label:(resources string:'create category').
     box initialText:lastCategory.
     box action:[:aString | self newMethodCategory:aString. lastCategory := aString].
@@ -14061,6 +14063,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.610 2000-03-01 16:15:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.611 2000-03-21 12:50:47 cg Exp $'
 ! !
 BrowserView initialize!