Smalltalk.st
changeset 21018 f8a78e675125
parent 21016 94e96557d795
child 21019 dc5142562d79
--- a/Smalltalk.st	Wed Nov 23 17:33:25 2016 +0100
+++ b/Smalltalk.st	Wed Nov 23 17:34:20 2016 +0100
@@ -4482,14 +4482,14 @@
                             ('Smalltalk [info]: reading script from: "', arg, '".') infoPrintCR.
                         ].
                         NoHandlerError handle:[:ex |
-                            Debugging == true ifFalse:[
+                            Debugging == true ifTrue:[
+                                MiniDebugger enter.
+                            ] ifFalse:[
                                 ex description _errorPrintCR.
                                 (VerboseStartup or:[ObjectMemory debugPrinting]) ifTrue:[
                                     ex suspendedContext fullPrintAll.
                                 ].
                                 self exit:1.
-                            ] ifFalse:[
-                                MiniDebugger enter.
                             ].
                             self exit:1.
                             "/ ex reject.
@@ -4642,14 +4642,14 @@
                         Processor exitWhenNoMoreUserProcesses:true.
 
                         NoHandlerError handle:[:ex |
-                            Debugging == true ifFalse:[
+                            Debugging == true ifTrue:[
+                                MiniDebugger enter.
+                            ] ifFalse:[
                                 ex description _errorPrintCR.
                                 (VerboseStartup or:[ObjectMemory debugPrinting]) ifTrue:[
                                     ex suspendedContext fullPrintAll.
                                 ].
                                 self exit:1.
-                            ] ifFalse:[
-                                MiniDebugger enter.
                             ].
                             self exit:1.
                             "/ ex reject.