--- a/DebugView.st	Mon May 27 17:32:35 2019 +0200
+++ b/DebugView.st	Mon May 27 21:35:46 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -8358,7 +8356,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -9434,7 +9432,17 @@
                 ex proceed.
             ].
             answer == #disableAndProceed ifTrue:[
-                ex parameter disable.
+                ex lineBreakpoint notNil ifTrue:[
+                    ex lineBreakpoint disable.
+                ] ifFalse:[
+                    |m|
+                    
+                    "/ a method breakpoint
+                    m := ex suspendedContext method.
+                    m isWrapped ifTrue:[
+                        MessageTracer unwrapMethod:m
+                    ].    
+                ].    
                 answer := #proceed.
             ].    
             answer == #proceed ifTrue:[
@@ -9464,7 +9472,7 @@
     "Created: / 24-11-1995 / 20:33:45 / cg"
     "Modified: / 26-09-2012 / 15:03:39 / cg"
     "Modified: / 15-05-2018 / 20:38:41 / stefan"
-    "Modified: / 10-02-2019 / 12:47:11 / Claus Gittinger"
+    "Modified: / 27-05-2019 / 20:51:19 / Claus Gittinger"
 ! !
 
 !DebugView methodsFor:'queries'!
@@ -10608,7 +10616,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.