--- a/SystemBrowser.st	Tue Sep 22 13:25:53 2009 +0200
+++ b/SystemBrowser.st	Tue Sep 22 13:27:41 2009 +0200
@@ -3108,15 +3108,13 @@
             allSelectors := Set new.
             top20 := SortedCollection new.
             top20 sortBlock:[:a :b | (a spellAgainst:aSelectorString) > (b spellAgainst:aSelectorString)].
-            Smalltalk allClasses do:[:cls |
-                cls instAndClassSelectorsAndMethodsDo:[:s :m |
-                    (s spellAgainst:aSelectorString) > 50 ifTrue:[    
-                        (allSelectors includes:s) ifFalse:[
-                            allSelectors add:s.
-                            top20 add:s.
-                            top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
-                        ]
-                    ].
+            Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector |
+                (eachSelector spellAgainst:aSelectorString) > 50 ifTrue:[    
+                    (allSelectors includes:eachSelector) ifFalse:[
+                        allSelectors add:eachSelector.
+                        top20 add:eachSelector.
+                        top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
+                    ]
                 ]
             ].
             choice := Dialog 
@@ -5707,7 +5705,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.264 2009-09-15 12:12:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.265 2009-09-22 11:27:41 cg Exp $'
 ! !
 
 SystemBrowser initialize!