--- a/extensions.st	Wed May 04 07:51:28 2016 +0200
+++ b/extensions.st	Wed May 04 09:18:23 2016 +0200
@@ -920,7 +920,7 @@
 
     implementors := SystemBrowser
         findImplementorsOf:aMethod selector
-        in:(environment allClasses)
+        in:(aMethod mclass environment allClasses)
         ignoreCase:false.
 
     implementors notEmpty ifTrue:[
@@ -939,7 +939,7 @@
 false ifTrue:[  "/ too slow
     senders := SystemBrowser
         findSendersOf:aMethod selector
-        in:(environment allClasses)
+        in:(aMethod mclass environment allClasses)
         ignoreCase:false.
     senders notEmpty ifTrue:[
         msg2 := 'Sent from ' , senders size printString, ' methods.'.