--- a/Tools__BreakpointService.st	Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__BreakpointService.st	Fri Nov 30 17:23:39 2012 +0000
@@ -218,7 +218,7 @@
                             skipIfSame:false
                             silent:true
                             foldConstants:true
-                            ifFail:[ Transcript showCR:'failed to recompile for breakpoint' ].
+                            ifFail:[ Transcript showCR:'BreakpointService: failed to recompile for breakpoint' ].
                 newMethod originalMethod: oldMethod.
 
                 selector isNil ifTrue:[
@@ -242,7 +242,9 @@
 "/ self halt.
             breakpoints := breakpoints
                             select:[:bp |
-                                bp isReached ifFalse:[ Transcript show:'remove unreached:'; showCR:bp ].
+                                bp isReached ifFalse:[ 
+                                    "/ Transcript show:'remove unreached:'; showCR:bp 
+                                ].
                                 bp isReached
                             ]
         ]
@@ -274,6 +276,7 @@
             bpnt toggle.
         ]
     ].
+
     gutterView redrawLine:line.
 
     "Created: / 17-06-2011 / 13:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -318,10 +321,10 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.16 2012/08/02 12:47:48 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.17 2012/11/01 14:18:23 cg Exp §'
 
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st 8048 2012-09-07 17:28:09Z vranyj1 $'
+    ^ '$Id: Tools__BreakpointService.st 8074 2012-11-30 17:23:39Z vranyj1 $'
 ! !