--- a/StandaloneStartup.st	Sun Jul 16 11:49:58 2017 +0200
+++ b/StandaloneStartup.st	Sun Jul 16 11:52:23 2017 +0200
@@ -317,7 +317,7 @@
     nMethodsInstrumented := 0.
 
     coverageAction := [:aMethod |
-            ((aMethod sendsSelector:#subclassResponsibility) not
+            (aMethod isSubclassResponsibility not
             and:[ aMethod hasPrimitiveCode not ]) ifTrue:[
                 Transcript show:'instrumenting '; showCR:aMethod.
                 aMethod mclass recompile:aMethod selector usingCompilerClass:InstrumentingCompiler.
@@ -372,7 +372,7 @@
     ].
 
     "Created: / 24-05-2011 / 16:30:54 / cg"
-    "Modified: / 05-02-2017 / 01:25:10 / cg"
+    "Modified: / 16-07-2017 / 11:32:45 / cg"
 ! !
 
 !StandaloneStartup class methodsFor:'defaults'!