--- a/Tools__MethodList.st	Sun Jul 16 11:52:36 2017 +0200
+++ b/Tools__MethodList.st	Sun Jul 16 11:52:58 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -1450,7 +1448,7 @@
         ^ self methodInheritedFromAboveIcon.
     ].
 
-    subclassResponsibility := aMethod sendsAnySelector:#( subclassResponsibility implementedBySubclass).
+    subclassResponsibility := aMethod isSubclassResponsibility.
     redefined ifTrue:[
         subclassResponsibility ifTrue:[
             ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
@@ -1463,7 +1461,7 @@
 
     ^ self methodEmptyInheritedIcon
 
-    "Modified: / 05-02-2017 / 01:28:24 / cg"
+    "Modified: / 16-07-2017 / 11:34:14 / cg"
 !
 
 release