--- a/Tools__BreakpointService.st	Thu Jan 16 15:31:24 2014 +0100
+++ b/Tools__BreakpointService.st	Thu Jan 16 15:31:46 2014 +0100
@@ -446,7 +446,7 @@
                 pos := textView characterPositionOfLine:line col:1.
                 breakpoints add:((bpnt := Breakpoint new) position:pos line:line).
             ].
-            Display shiftDown ifTrue:[
+            Screen current shiftDown ifTrue:[
                 "/ trace
                 bpnt beTracepoint
             ].
@@ -457,7 +457,7 @@
         ]
     ] ifFalse:[
         "/ breakpoint already there - just enable/disable
-        Display shiftDown ifTrue:[
+        Screen current shiftDown ifTrue:[
             bpnt toggleTracing
         ] ifFalse:[
             bpnt toggle.
@@ -599,14 +599,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.43 2014-01-16 14:31:46 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.43 2014-01-16 14:31:46 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.43 2014-01-16 14:31:46 stefan Exp $'
 ! !