--- a/DebugView.st	Tue Feb 25 12:31:11 2020 +0100
+++ b/DebugView.st	Tue Feb 25 13:40:41 2020 +0100
@@ -5229,7 +5229,7 @@
     ].
 
     mthd source notEmptyOrNil ifTrue:[
-        (Dialog confirm:'Block''s home method is (no longer) present in any class.\Do you want to see the method anyway?' withCRs)
+        (Dialog confirm:c'Block''s home method is (no longer) present in any class.\nDo you want to see the method anyway?')
         ifTrue:[
             SystemBrowser default browseMethods:{ mthd } title:'Unbound Method' sort:false
             "/ TextView openWith:mthd source title:'Unbound Method''s Source'.
@@ -5237,7 +5237,7 @@
         ^ self
     ].
     cls notNil ifTrue:[
-        (Dialog confirm:'Block''s home method is (no longer) present in any class and no source can be shown.\Do you want to browse the method''s last class instead?' withCRs)
+        (Dialog confirm:c'Block''s home method is (no longer) present in any class and no source can be shown.\nDo you want to browse the method''s last class instead?')
         ifTrue:[
             cls browserClass openInClass:cls selector:nil.
         ].
@@ -5326,7 +5326,7 @@
                     cls := home receiver class
                             whichClassImplements:selectedContext selector.
                     cls notNil ifTrue:[
-                        Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
+                        Dialog information:c'Method has been changed/moved in the meanwhile.\nBrowser will show the most recent (current) version.'.
                     ].
                 ]
             ].
@@ -9781,7 +9781,7 @@
                         box topView width:800; sizeFixed:true
                     ] do:[
                         answer := Dialog
-                            choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+                            choose:(e'{ex creator class theNonMetaclass name} in debugger:\n{eMsg}\n\ndebug again ?')
                             labels:(resources array:labels)
                             values:values
                             default:#cancel.
@@ -9791,7 +9791,7 @@
                 'DebugView [info]: caught exception - debugging' infoPrintCR.
                 Debugger
                     enterUnconditional:(ex suspendedContext)
-                    withMessage:(ex creator class theNonMetaclass name,' in debugger: ' , eMsg)
+                    withMessage:(e'{ex creator class theNonMetaclass name} in debugger:\n{eMsg}')
                     mayProceed:true.
                 ex proceed.
             ].
@@ -9824,8 +9824,10 @@
                     handle:[:ex | ex proceed ]
                     do:[
                         windowGroup
-                            eventLoopWhile:[Processor activeProcess state:#debug.
-                                              true]
+                            eventLoopWhile:[
+                                Processor activeProcess state:#debug.
+                                true
+                            ]
                             onLeave:[]
                     ]
             ]