--- a/Tools__CodeView2.st	Mon Feb 18 21:13:14 2019 +0100
+++ b/Tools__CodeView2.st	Mon Feb 18 21:14:05 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
               All Rights Reserved
@@ -2290,6 +2288,21 @@
     ^ services detect:[:any| (any isKindOf: BreakpointService)] ifNone:nil
 !
 
+breakpointService:newServiceOrNil
+    "set the breakpoint service"
+
+    |oldService|
+
+    (oldService := self breakpointService) notNil ifTrue:[
+        self unregisterService:oldService.
+    ].
+    newServiceOrNil notNil ifTrue:[
+        self registerService:newServiceOrNil.
+    ].
+
+    "Created: / 18-02-2019 / 19:45:52 / Claus Gittinger"
+!
+
 lintService
     "prefers the smallsense-lint service over others"