--- a/Smalltalk.st	Wed Nov 23 15:33:39 2016 +0100
+++ b/Smalltalk.st	Wed Nov 23 16:02:12 2016 +0100
@@ -4594,6 +4594,7 @@
                 CommandLineArguments removeAtIndex:idx.
 
                 self startSchedulerAndBackgroundCollector.
+
                 keepSplashWindow ifFalse:[ self hideSplashWindow ].
                 Initializing := false.
 
@@ -4659,9 +4660,15 @@
                                     "/ --filter - apply code to each input line.
                                     "/ compile code only once
                                     (args size == 1) ifTrue:[
+                                        VerboseStartup ifTrue:[
+                                            'Smalltalk [info]: filter 1-arg' infoPrintCR.
+                                        ].
                                         filterCode := args at:1.
                                     ] ifFalse:[
                                         (args size == 3) ifTrue:[
+                                            VerboseStartup ifTrue:[
+                                                'Smalltalk [info]: filter 3-arg' infoPrintCR.
+                                            ].
                                             filterStart := args at:1.
                                             filterCode := args at:2.
                                             filterEnd := args at:3.
@@ -4670,6 +4677,12 @@
                                             self exitWithErrorMessage:'--filter must be followed by 1 or 3 expression arg(s)'
                                         ].
                                     ].    
+                                    filterStart notEmptyOrNil ifTrue:[ 
+                                        VerboseStartup ifTrue:[
+                                            ('Smalltalk [info]: eval: "', filterStart, '"...') infoPrintCR.
+                                        ].
+                                        Compiler evaluate:filterStart notifying:(EvalScriptingErrorHandler new source:filterStart) 
+                                    ].    
                                     VerboseStartup ifTrue:[
                                         ('Smalltalk [info]: compile: "', filterCode, '"...') infoPrintCR.
                                     ].
@@ -4678,12 +4691,6 @@
                                         forClass:String
                                         notifying:(EvalScriptingErrorHandler new source:filterCode).
 
-                                    filterStart notEmptyOrNil ifTrue:[ 
-                                        VerboseStartup ifTrue:[
-                                            ('Smalltalk [info]: eval: "', filterStart, '"...') infoPrintCR.
-                                        ].
-                                        Compiler evaluate:filterStart notifying:(EvalScriptingErrorHandler new source:filterStart) 
-                                    ].    
                                     [Stdin atEnd] whileFalse:[
                                         |line|