--- a/extensions.st	Wed May 04 09:18:23 2016 +0200
+++ b/extensions.st	Wed May 04 09:22:42 2016 +0200
@@ -912,7 +912,7 @@
 
 !Explainer class methodsFor:'utilities'!
 
-methodImplementorsInfoFor:aMethod
+methodImplementorsInfoFor:aMethod inEnvironment:environment
     "get something about the implementors of aMethod
      to be shown in the info line at the bottom"
 
@@ -920,7 +920,7 @@
 
     implementors := SystemBrowser
         findImplementorsOf:aMethod selector
-        in:(aMethod mclass environment allClasses)
+        in:(environment allClasses)
         ignoreCase:false.
 
     implementors notEmpty ifTrue:[
@@ -939,7 +939,7 @@
 false ifTrue:[  "/ too slow
     senders := SystemBrowser
         findSendersOf:aMethod selector
-        in:(aMethod mclass environment allClasses)
+        in:(environment allClasses)
         ignoreCase:false.
     senders notEmpty ifTrue:[
         msg2 := 'Sent from ' , senders size printString, ' methods.'.