--- a/Tools__MethodCategoryList.st	Sun Feb 05 01:43:16 2017 +0100
+++ b/Tools__MethodCategoryList.st	Sun Feb 05 01:43:26 2017 +0100
@@ -1836,7 +1836,7 @@
 "/                                    and:[ mclass allSubclasses contains:[:cls | cls includesSelector:selector ]]]) 
 "/                                ).
 
-                info isSubclassResponsibility:( aMethod sendsAny:#( #subclassResponsibility #subclassResponsibility: )).
+                info isSubclassResponsibility:( aMethod sendsAnySelector:#( #subclassResponsibility #subclassResponsibility: )).
                 info isAnnotated:(aMethod hasAnnotation).
 
                 MethodInfoCacheAccessLock critical:[
@@ -1848,6 +1848,7 @@
     ^ info
 
     "Created: / 08-08-2011 / 18:18:14 / cg"
+    "Modified: / 05-02-2017 / 01:28:20 / cg"
 !
 
 methodIsMarkedAsLong:aMethod