--- a/MethodWithBreakpoints.st	Mon May 16 12:36:31 2016 +0200
+++ b/MethodWithBreakpoints.st	Mon May 16 23:56:17 2016 +0200
@@ -125,6 +125,16 @@
     self breakpointsDo:[:bp | bp disable].
 !
 
+disableBreakpointInLine:lineNr
+    "disable one of my breakpoints"
+
+    self breakpointsDo:[:bp | 
+        bp line == lineNr ifTrue:[
+            bp disable
+        ].
+    ].
+!
+
 restoreOriginalMethod
     "remove myself - i.e. replace by the original method 
      (i.e. the one without line breakpoints)"
@@ -178,11 +188,11 @@
 !MethodWithBreakpoints class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $'
+    ^ '$Header$'
 ! !