--- a/SystemBrowser.st	Tue Oct 24 20:22:41 2000 +0200
+++ b/SystemBrowser.st	Tue Oct 24 20:24:22 2000 +0200
@@ -188,9 +188,8 @@
                 onDevice:(Screen current).
 
     "
-     SystemBrowser openOnSnapShotImage:('stmeas.img')
-    "
-! !
+     SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
+    "! !
 
 !SystemBrowser class methodsFor:'Compatibility - ST80'!
 
@@ -2794,12 +2793,12 @@
     |searchBlock|
 
     aCategory includesMatchCharacters ifTrue:[
-	searchBlock := [:c :m :s | aCategory match:m category].
+        searchBlock := [:c :m :s | aCategory match:m category].
     ] ifFalse:[
-	searchBlock := [:c :m :s | m category = aCategory]
+        searchBlock := [:c :m :s | m category = aCategory]
     ].
 
-    self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
+    ^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
 
     "
      SystemBrowser browseMethodCategory:'printing & storing'
@@ -2858,23 +2857,18 @@
         entry isString ifTrue:[
             entry
         ] ifFalse:[
-            who := entry who.
-            who isNil ifTrue:[
+            cls := entry mclass.
+            cls isNil ifTrue:[
                 '??? unbound'
             ] ifFalse:[
-                cls := who methodClass.
-                cls isNil ifTrue:[
-                    '??? unbound'
+                cls isJavaClass ifTrue:[
+                    clsName := 'JAVA::' , cls fullName 
                 ] ifFalse:[
-                    cls isJavaClass ifTrue:[
-                        clsName := 'JAVA::' , cls fullName 
-                    ] ifFalse:[
-                        clsName := cls name
-                    ].
-                    clsName
-                    , ' ' 
-                    , (entry printStringForBrowserWithSelector:(who methodSelector))
-                ]
+                    clsName := cls name
+                ].
+                clsName
+                , ' ' 
+                , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry))
             ]
         ]
       ].
@@ -3181,6 +3175,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.118 2000-10-24 11:15:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.119 2000-10-24 18:24:22 cg Exp $'
 ! !
 SystemBrowser initialize!