--- a/Tools__BreakpointService.st	Mon Apr 15 23:50:25 2013 +0200
+++ b/Tools__BreakpointService.st	Tue Apr 16 09:35:45 2013 +0200
@@ -302,16 +302,20 @@
     bpnt := self breakpointAtLine:line.
     bpnt isNil ifTrue:[
         (mode == #vm or:[codeView topView class ~~ DebugView]) ifTrue:[
-            breakpoints add:((bpnt := Breakpoint new) position:pos line:line).
+            mode == #vm ifTrue:[
+                bpnt := MessageTracer breakMethod: currentMethod atLine: line. 
+                bpnt notNil ifTrue:[
+                    bpnt position:pos.
+                    breakpoints add: bpnt.
+                ].
+            ] ifFalse:[
+                breakpoints add:((bpnt := Breakpoint new) position:pos line:line).
+                self recompile
+            ].
             Display shiftDown ifTrue:[
                 "/ trace
                 bpnt beTracepoint
             ].
-            mode == #vm ifTrue:[
-                self reinstall.
-            ] ifFalse:[
-                self recompile
-            ]
         ].
     ] ifFalse:[
         Display shiftDown ifTrue:[
@@ -325,7 +329,7 @@
 
     "Created: / 17-06-2011 / 13:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-08-2012 / 09:26:38 / cg"
-    "Modified: / 15-04-2013 / 12:41:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-04-2013 / 00:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BreakpointService methodsFor:'redrawing'!