--- a/Smalltalk.st Wed Nov 23 15:21:20 2016 +0100
+++ b/Smalltalk.st Wed Nov 23 15:33:39 2016 +0100
@@ -4682,7 +4682,7 @@
VerboseStartup ifTrue:[
('Smalltalk [info]: eval: "', filterStart, '"...') infoPrintCR.
].
- Compiler evaluate:filterStart
+ Compiler evaluate:filterStart notifying:(EvalScriptingErrorHandler new source:filterStart)
].
[Stdin atEnd] whileFalse:[
|line|
@@ -4694,7 +4694,7 @@
VerboseStartup ifTrue:[
('Smalltalk [info]: eval: "', filterEnd, '"...') infoPrintCR.
].
- Compiler evaluate:filterEnd
+ Compiler evaluate:filterEnd notifying:(EvalScriptingErrorHandler new source:filterEnd)
].
] ifFalse:[
(isPrint | isEval) ifTrue:[