--- a/Tools__BreakpointService.st	Wed Oct 09 18:16:02 2013 +0200
+++ b/Tools__BreakpointService.st	Thu Oct 10 13:07:51 2013 +0200
@@ -406,20 +406,22 @@
         "/ no breakpoint there - create a new one as required (i.e. recompile)
         ok := (self canCreateOrToggleBreakpointAtLine:line).
         ok ifFalse:[
-            codeView topView class == DebugView ifTrue:[
-                (Dialog 
-                    confirm:'Sorry, in an active method, I can only add new breakpoints in an already breakpointed method.
+            (currentMethod isMethodWithBreakpoints and:[ prepareFullBreakSupport ]) ifFalse:[
+                codeView topView class == DebugView ifTrue:[
+                    (Dialog 
+                        confirm:'Sorry, in an active method, I can only add new breakpoints in an already breakpointed method.
 (i.e. a method stopped at a method breakpoint or one which already has statement breakpoints)
 The reason is that the method needs to be recompiled for the breakpoint, which would not affect the method being currently executed.
 
 You can proceed to set the breakpoint, but it will only affect the next call into this method, not the current invocation.'
-                    yesLabel:'Set Breakpoint for Next Call' noLabel:'Ok') ifTrue:[
+                        yesLabel:'Set Breakpoint for Next Call' noLabel:'Ok') ifTrue:[
 self halt.
-                        ok := true.
-                    ]
-            ] ifFalse:[
-                Dialog warn:'Sorry, cannot add a new breakpoint here.'.
-            ].
+                            ok := true.
+                        ]
+                ] ifFalse:[
+                    Dialog warn:'Sorry, cannot add a new breakpoint here.'.
+                ].
+            ]
         ].
         ok ifTrue:[
             prepareFullBreakSupport ifTrue:[
@@ -597,14 +599,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.42 2013-10-10 11:07:51 cg Exp $'
 ! !