--- a/Tools__BreakpointService.st	Wed Jul 27 14:32:39 2011 +0200
+++ b/Tools__BreakpointService.st	Wed Jul 27 14:33:11 2011 +0200
@@ -223,10 +223,12 @@
     pos := textView characterPositionOfLine:line col:1.
     bpnt := self breakpointAtLine:line.
     bpnt isNil ifTrue:[
-        breakpoints add:((Breakpoint new)
-                    position:pos;
-                    line:line).
-        self recompile.
+        (codeView topView class ~~ DebugView) ifTrue:[
+            breakpoints add:((Breakpoint new)
+                        position:pos;
+                        line:line).
+            self recompile.
+        ].
     ] ifFalse:[
         bpnt toggle.
     ].
@@ -234,6 +236,7 @@
 
     "Created: / 17-06-2011 / 13:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-07-2011 / 21:32:49 / cg"
+    "Modified: / 27-07-2011 / 13:27:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BreakpointService methodsFor:'redrawing'!
@@ -273,7 +276,7 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.6 2011-07-06 16:30:45 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.7 2011-07-27 12:33:11 vrany Exp $'
 !
 
 version_SVN