--- a/Tools__BreakpointService.st	Sat Jan 26 17:09:04 2019 +0100
+++ b/Tools__BreakpointService.st	Sat Jan 26 19:52:52 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
 	      All Rights Reserved
@@ -113,6 +115,18 @@
     "Modified: / 08-05-2014 / 14:02:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+firstBreakpointAtLine:line
+    "return the breakpoint at line (may be disabled) or nil, if there is none"
+
+    breakpoints isEmptyOrNil ifTrue:[^ nil].
+
+    ^ breakpoints 
+        detect:[:each | each line == line ] 
+        ifNone:[ nil ]
+
+    "Created: / 26-01-2019 / 18:49:33 / Claus Gittinger"
+!
+
 removeAllBreakpoints
     breakpoints := OrderedCollection new.
     gutterView invalidate.