--- a/SystemBrowser.st	Tue Sep 08 17:57:12 2009 +0200
+++ b/SystemBrowser.st	Thu Sep 10 17:31:20 2009 +0200
@@ -2854,7 +2854,7 @@
     "launch a browser for all implementors of aSelector in
      the classes contained in aCollectionOfClasses and its metaclasses"
 
-    |list list2 rs selWithColon title top20 choice|
+    |list list2 rs selWithColon title top20 allSelectors choice|
 
     title := titleArg.
     list := self 
@@ -2872,14 +2872,16 @@
         list2 size == 0 ifTrue:[
             "/ self showNoneFound:title.
             "/ ^ self
+            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) > 30 ifTrue:[
-                        (top20 includes:s) ifFalse:[    
+                        (allSelectors includes:s) ifFalse:[
+                            allSelectors add:s.
                             top20 add:s.
-                            top20 size > 20 ifTrue:[ top20 removeLast ].
+                            top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
                         ]
                     ].
                 ]
@@ -5454,7 +5456,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.261 2009-09-08 14:16:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.262 2009-09-10 15:31:20 cg Exp $'
 ! !
 
 SystemBrowser initialize!