--- a/Tools__MethodList.st	Mon Jul 28 19:26:40 2014 +0200
+++ b/Tools__MethodList.st	Tue Jul 29 17:15:39 2014 +0200
@@ -1434,21 +1434,21 @@
     redefined := self methodIsRedefinedBelow:aMethod.
 
     inherited ifTrue:[
-	redefined ifTrue:[
-	    ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
-	].
-	^ self methodInheritedFromAboveIcon.
+        redefined ifTrue:[
+            ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
+        ].
+        ^ self methodInheritedFromAboveIcon.
     ].
 
-    subclassResponsibility := aMethod sends:#subclassResponsibility.
+    subclassResponsibility := aMethod sendsAny:#( subclassResponsibility implementedBySubclass).
     redefined ifTrue:[
-	subclassResponsibility ifTrue:[
-	    ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
-	].
-	^ self methodRedefinedBelowIcon.
+        subclassResponsibility ifTrue:[
+            ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
+        ].
+        ^ self methodRedefinedBelowIcon.
     ].
     subclassResponsibility ifTrue:[
-	^ self methodIsSubclassResponsibilityIcon.
+        ^ self methodIsSubclassResponsibilityIcon.
     ].
 
     ^ self methodEmptyInheritedIcon
@@ -1463,12 +1463,6 @@
     variableFilter removeDependent:self.
 !
 
-resourceIconForMethod:aMethod
-    ^ SystemBrowser resourceIconForMethod:aMethod
-
-    "Modified: / 17-08-2006 / 09:09:01 / cg"
-!
-
 setOfAllSelectorsImplementedBelow:aClass
     |set|
 
@@ -1846,6 +1840,12 @@
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 07-03-2012 / 19:06:09 / cg"
     "Modified: / 09-04-2014 / 15:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+resourceIconForMethod:aMethod
+    ^ SystemBrowser resourceIconForMethod:aMethod
+
+    "Modified: / 17-08-2006 / 09:09:01 / cg"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1895,10 +1895,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.105 2014-07-08 21:38:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.106 2014-07-29 15:15:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.105 2014-07-08 21:38:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.106 2014-07-29 15:15:39 cg Exp $'
 ! !