--- a/DebugView.st	Tue Sep 03 09:56:19 2019 +0200
+++ b/DebugView.st	Wed Sep 04 16:38:18 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -9055,7 +9053,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:[
@@ -9606,20 +9604,20 @@
 
             signal := ex creator.
             (UserInterruptSignal accepts:signal) ifTrue:[
-Transcript showCR:'UserInterruptSignal'.
+                "/ Transcript showCR:'UserInterruptSignal'.
                 self topView raiseDeiconified.
                 ex proceed.
             ].
 
             (UserNotification accepts:signal) ifTrue:[
-Transcript showCR:'UserNotification'.
+                "/ Transcript showCR:'UserNotification'.
                 (signal ~~ ActivityNotificationSignal) ifTrue:[
                     self showError:ex description.
                 ].
                 ex proceed.
             ].
             (HaltInterrupt accepts:signal) ifTrue:[
-                Transcript showCR:'Halt/Break in debugger ignored'.
+                "/ Transcript showCR:'Halt/Break in debugger ignored'.
                 self topView raiseDeiconified.
                 ex proceed.
             ].
@@ -9751,11 +9749,15 @@
                         labels := #('Disable BreakPoint & Proceed' ) , labels.
                         values := #(#disableAndProceed ) , values.
                     ].    
-                    answer := Dialog
-                        choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
-                        labels:(resources array:labels)
-                        values:values
-                        default:#cancel.
+                    Dialog modifyingBoxWith:[:box |
+                        box topView width:800; sizeFixed:true
+                    ] do:[
+                        answer := Dialog
+                            choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+                            labels:(resources array:labels)
+                            values:values
+                            default:#cancel.
+                    ].
                 ].
             answer == #debug ifTrue:[
                 'DebugView [info]: caught exception - debugging' infoPrintCR.
@@ -10955,7 +10957,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.