--- a/Smalltalk.st Wed Mar 23 19:23:28 2016 +0100
+++ b/Smalltalk.st Wed Mar 23 19:38:51 2016 +0100
@@ -4280,6 +4280,11 @@
('Smalltalk [info]: reading script from: "', arg, '".') infoPrintCR.
].
UserInterrupt handle:[:ex |
+ DebuggingStandAlone ifTrue:[
+ 'Smalltalk [error]: user interrupt.' errorPrintCR.
+ thisContext fullPrintAll.
+ ex reject.
+ ].
self exit:128+(OperatingSystem sigINT).
] do:[
arg = '-' ifTrue:[
@@ -4382,6 +4387,11 @@
('Smalltalk [info]: executing expression: "', arg, '".') infoPrintCR.
].
UserInterrupt handle:[:ex |
+ DebuggingStandAlone ifTrue:[
+ 'Smalltalk [error]: user interrupt.' errorPrintCR.
+ thisContext fullPrintAll.
+ ex reject.
+ ].
self exit:128+(OperatingSystem sigINT).
] do:[
isFilter ifTrue:[