--- a/SystemBrowser.st	Sat Jan 15 14:08:05 2011 +0100
+++ b/SystemBrowser.st	Sat Jan 15 14:37:23 2011 +0100
@@ -2960,6 +2960,21 @@
                     ]
                 ]
             ].
+            top20 isEmpty ifTrue:[
+                |lcSelector|
+
+                lcSelector := aSelectorString asLowercase.
+                Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector |
+                    (eachSelector asLowercase spellAgainst:lcSelector) > 50 ifTrue:[    
+                        (allSelectors includes:eachSelector) ifFalse:[
+                            allSelectors add:eachSelector.
+                            top20 add:eachSelector.
+                            top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
+                        ]
+                    ]
+                ].
+            ].
+
             choice := Dialog 
                 choose:(title,' - none found.\\Browse implementors of a similar selector or cancel:' withCRs)
                 fromList:top20 
@@ -2998,9 +3013,9 @@
                                   title:'some implementors of +'
     "
 
-    "Modified: / 4.9.1995 / 17:33:39 / claus"
-    "Modified: / 19.6.1996 / 14:19:02 / stefan"
-    "Modified: / 5.11.2001 / 17:30:38 / cg"
+    "Modified: / 04-09-1995 / 17:33:39 / claus"
+    "Modified: / 19-06-1996 / 14:19:02 / stefan"
+    "Modified: / 15-01-2011 / 14:35:56 / cg"
 !
 
 browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title
@@ -5710,11 +5725,11 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.286 2010-12-08 11:20:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.287 2011-01-15 13:37:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.286 2010-12-08 11:20:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.287 2011-01-15 13:37:23 cg Exp $'
 ! !
 
 SystemBrowser initialize!