--- a/Tools__BreakpointService.st	Wed Jun 05 18:00:34 2013 +0200
+++ b/Tools__BreakpointService.st	Wed Jun 05 19:18:17 2013 +0200
@@ -270,6 +270,13 @@
 setOrToggleBreakpointAtLine:line
     |pos bpnt|
 
+    textView reallyModified ifTrue:[
+        "/ leads to ugly behavior (method no longer found), if we allow
+        "/ this...
+          Dialog warn:'Please accept first (cannot set breakpoint while text is modified)'.
+        ^ self
+    ].
+
     pos := textView characterPositionOfLine:line col:1.
     bpnt := self breakpointAtLine:line.
     bpnt isNil ifTrue:[
@@ -333,11 +340,11 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.18 2013-03-22 11:38:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.19 2013-06-05 17:18:17 cg Exp $'
 
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: Tools__BreakpointService.st,v 1.19 2013-06-05 17:18:17 cg Exp $'
 ! !