--- a/MethodWithBreakpoints.st	Thu Jan 29 23:30:33 2015 +0100
+++ b/MethodWithBreakpoints.st	Fri Jan 30 00:49:33 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Method variableSubclass:#MethodWithBreakpoints
 	instanceVariableNames:'originalMethod'
 	classVariableNames:'BreakpointedMethods'
@@ -158,6 +160,15 @@
 
 !MethodWithBreakpoints methodsFor:'queries'!
 
+hasEnabledBreakpoints
+    "true if any of my breakpoints is actually enabled"
+
+    self breakpointsDo:[:any | 
+        any isEnabled ifTrue:[^ true].
+    ].
+    ^ false.
+!
+
 isMethodWithBreakpoints
     ^ true
 
@@ -167,11 +178,11 @@
 !MethodWithBreakpoints class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $'
 ! !