--- a/MethodWithBreakpoints.st	Wed Oct 05 13:59:21 2016 +0200
+++ b/MethodWithBreakpoints.st	Wed Oct 05 14:31:01 2016 +0200
@@ -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.
 !