--- a/BrowserView.st	Tue Feb 03 14:40:19 1998 +0100
+++ b/BrowserView.st	Tue Feb 03 19:03:37 1998 +0100
@@ -6947,7 +6947,14 @@
 methodCategorySelection:lineNr
     "user clicked on a method category line - show selectors"
 
-    self switchToMethodCategory:(methodCategoryListView selectionValue string).
+    |cat|
+
+    (cat := methodCategoryListView selectionValue) isNil ifTrue:[
+        cat := currentMethodCategory
+    ].
+    cat notNil ifTrue:[
+        self switchToMethodCategory:cat string.
+    ].
 
     "Modified: 22.10.1996 / 17:27:13 / cg"
 !
@@ -11281,6 +11288,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.363 1998-02-02 12:51:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.364 1998-02-03 18:03:37 ca Exp $'
 ! !
 BrowserView initialize!