--- a/Tools__MethodList.st	Sun Feb 05 01:38:54 2017 +0100
+++ b/Tools__MethodList.st	Sun Feb 05 01:43:16 2017 +0100
@@ -1448,7 +1448,7 @@
         ^ self methodInheritedFromAboveIcon.
     ].
 
-    subclassResponsibility := aMethod sendsAny:#( subclassResponsibility implementedBySubclass).
+    subclassResponsibility := aMethod sendsAnySelector:#( subclassResponsibility implementedBySubclass).
     redefined ifTrue:[
         subclassResponsibility ifTrue:[
             ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
@@ -1460,6 +1460,8 @@
     ].
 
     ^ self methodEmptyInheritedIcon
+
+    "Modified: / 05-02-2017 / 01:28:24 / cg"
 !
 
 release