--- a/Tools__NewSystemBrowser.st	Tue Jan 28 04:28:08 2020 +0000
+++ b/Tools__NewSystemBrowser.st	Tue Jan 28 16:06:40 2020 +0100
@@ -35403,11 +35403,13 @@
         [:cls :sel :mthd |
             (mthd isSubclassResponsibility) ifFalse:[
                 mthd hasPrimitiveCode ifFalse:[
-                    firstMethod ifTrue:[
-                        self showInfo:('Instrumenting ',aClass name,'...').
-                        firstMethod := false.
-                    ].
-                    cls recompile:sel usingCompiler:InstrumentingCompiler new
+                    (mthd hasAnnotation:#noCoverage) ifFalse:[     
+                        firstMethod ifTrue:[
+                            self showInfo:('Instrumenting ',aClass name,'...').
+                            firstMethod := false.
+                        ].
+                        cls recompile:sel usingCompiler:InstrumentingCompiler new
+                    ]
                 ]
             ]
         ].
@@ -35442,9 +35444,11 @@
 recompileMethodWithInstrumentation:aMethod
     (aMethod isSubclassResponsibility) ifFalse:[
         aMethod hasPrimitiveCode ifFalse:[
-            aMethod mclass
-                recompile:aMethod selector
-                usingCompiler:InstrumentingCompiler new
+            (aMethod hasAnnotation:#noCoverage) ifFalse:[     
+                aMethod mclass
+                    recompile:aMethod selector
+                    usingCompiler:InstrumentingCompiler new
+            ]
         ]
     ]
 
@@ -62136,6 +62140,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass