--- a/Method.st	Fri Jul 14 15:23:27 2017 +0200
+++ b/Method.st	Sun Jul 16 11:49:58 2017 +0200
@@ -2794,6 +2794,16 @@
     "Modified: / 03-10-2014 / 15:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+isSubclassResponsibility
+    ^ self 
+        sendsAnySelector:#( 
+            #subclassResponsibility #subclassResponsibility: 
+            #implementedBySubclass  "/ ST/V code uses this
+        ).
+
+    "Created: / 16-07-2017 / 11:25:54 / cg"
+!
+
 isSynthetic
     "a synthetic method does not really exist - it is only shown in a browser's list"