--- a/SystemBrowser.st	Sun Apr 19 00:59:32 1998 +0200
+++ b/SystemBrowser.st	Sun Apr 19 17:21:39 1998 +0200
@@ -119,20 +119,21 @@
 
     brwsr := self openOnDevice:(Screen current).
     brwsr waitUntilVisible.
+
     cls := aClass.
     cls notNil ifTrue:[
-	cls isMeta ifTrue:[
-	    cls := aClass soleInstance
-	].
-	brwsr switchToClassNamed:cls name. 
-	brwsr updateClassCategoryList.
-	aClass isMeta ifTrue:[
-	    brwsr instanceProtocol:false
-	].
-	brwsr updateMethodCategoryList.
-	aSelector notNil ifTrue:[
-	    brwsr switchToMethodNamed:aSelector.
-	]
+        cls isMeta ifTrue:[
+            cls := aClass soleInstance
+        ].
+        aClass isMeta ifTrue:[
+            brwsr instanceProtocol:false
+        ].
+        brwsr switchToClassNamed:aClass name. 
+"/        brwsr updateClassCategoryList.
+"/        brwsr updateMethodCategoryList.
+        aSelector notNil ifTrue:[
+            brwsr switchToMethodNamed:aSelector.
+        ]
     ].
     ^ brwsr
 
@@ -142,7 +143,8 @@
      SystemBrowser openInClass:nil selector:nil
     "
 
-    "Created: 22.11.1995 / 21:04:50 / cg"
+    "Created: / 22.11.1995 / 21:04:50 / cg"
+    "Modified: / 18.4.1998 / 19:30:07 / cg"
 !
 
 openOnDevice:aDisplay
@@ -1935,6 +1937,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.82 1997-11-02 18:29:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.83 1998-04-19 15:21:39 cg Exp $'
 ! !
 SystemBrowser initialize!