--- a/MethodWithBreakpoints.st	Mon Oct 03 12:44:41 2016 +0100
+++ b/MethodWithBreakpoints.st	Sun Oct 09 21:28:18 2016 +0100
@@ -174,7 +174,22 @@
     "true if any of my breakpoints is actually enabled"
 
     self breakpointsDo:[:any | 
-        any isEnabled ifTrue:[^ true].
+        any isEnabled ifTrue:[
+            any isTracepoint ifFalse:[ ^ true].
+        ].    
+    ].
+    ^ false.
+!
+
+hasEnabledTracepoints
+    "true if any of my tracepoints is actually enabled"
+
+    self breakpointsDo:[:any | 
+        any isEnabled ifTrue:[
+            any isTracepoint ifTrue:[
+                ^ true
+            ].
+        ].
     ].
     ^ false.
 !