#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 23 Nov 2016 15:33:39 +0100
changeset 21014 5862c432360a
parent 21013 ba1733da301b
child 21015 ed6b8a2db66a
#FEATURE by cg class: Smalltalk changed: #start
Smalltalk.st
--- 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:[