--- a/SystemBrowser.st	Sat Jun 14 12:24:51 2014 +0200
+++ b/SystemBrowser.st	Sat Jun 14 12:25:34 2014 +0200
@@ -736,6 +736,25 @@
                             box closeRequest
                          ].
             box addButton:browseButton before:box okButton.
+
+            aMatchString isLowercaseFirst ifTrue:[
+                |browseImplementorsButton|
+
+                browseImplementorsButton := Button label:(resources string:'Implementors').
+                browseImplementorsButton 
+                    action:[
+                        aBrowserOrNil isNil ifTrue:[
+                            SystemBrowser browseImplementorsMatching:aMatchString
+                        ] ifFalse:[
+                            aBrowserOrNil
+                                spawnMethodImplementorsBrowserFor:{ aMatchString } match:true in:#newBrowser.
+                        ].
+                        box hide.
+                        box closeRequest
+                     ].
+                box addButton:browseImplementorsButton before:box okButton.
+            ].
+
             box minExtent:300@250.
 
             box open.
@@ -6967,15 +6986,15 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.344 2014-05-23 09:29:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.344 2014-05-23 09:29:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.344 2014-05-23 09:29:30 stefan Exp $'
+    ^ '$Id: SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
 ! !