--- a/Smalltalk.st	Wed Nov 23 17:52:13 2016 +0100
+++ b/Smalltalk.st	Wed Nov 23 18:03:33 2016 +0100
@@ -635,12 +635,8 @@
     CommandLineArguments := CommandLineArguments asOrderedCollection.
     CommandName := CommandLineArguments removeFirst. "/ the command
 
-    SilentLoading := false.
-    VerboseLoading := false.
-    VerboseStartup := false.
-    Verbose := false.
-    self initializeVerboseFlags.    
-
+    SilentLoading := Silent := false.
+    VerboseLoading := VerboseStartup := Verbose := false.
     DebuggingStandAlone := Debugging := false.
 
     "/ if no argument was given, look for an environment variable named
@@ -669,30 +665,7 @@
         ].
     ].
 
-    idx := CommandLineArguments indexOf:'--debug'.
-    Debugging := (idx ~~ 0).
-    
-    StandAlone ifTrue:[
-        InfoPrinting := false.
-        ObjectMemory infoPrinting:false.
-        IgnoreAssertions := true.
-
-        DebuggingStandAlone := Debugging.
-        DebuggingStandAlone ifTrue:[
-            Inspector := MiniInspector.
-            Debugger := MiniDebugger.
-            IgnoreAssertions := false.
-        ].
-    ] ifFalse:[
-        "/
-        "/ define low-level debugging tools - graphical classes are not prepared yet
-        "/ to handle things.
-        "/ This will bring us into the MiniDebugger when an error occurs during startup.
-        "/
-        Inspector := MiniInspector.
-        Debugger := MiniDebugger.
-        IgnoreAssertions := false.
-    ].
+    self initializeVerboseFlags.    
 
     Error handle:[:ex |
         StandAlone ifTrue:[
@@ -714,6 +687,14 @@
 initializeVerboseFlags
     |idx|
 
+    StandAlone ifTrue:[
+        InfoPrinting := false.
+        ObjectMemory infoPrinting:false.
+        IgnoreAssertions := true.
+    ] ifFalse:[
+        IgnoreAssertions := false.
+    ].    
+    
     (idx := CommandLineArguments indexOf:'--ignoreHalt') ~~ 0 ifTrue:[
         IgnoreHalt := true.
         CommandLineArguments removeIndex:idx
@@ -768,7 +749,7 @@
     Silent := false.
     (idx := CommandLineArguments indexOf:'--silent') ~~ 0 ifTrue:[
         CommandLineArguments removeIndex:idx.
-        
+'silent' _errorPrintCR.        
         Silent := SilentLoading := true.
         Object infoPrinting:false.
         ObjectMemory infoPrinting:false.
@@ -778,6 +759,26 @@
             Logger loggingThreshold: Logger severityNONE
         ].    
     ].
+
+    idx := CommandLineArguments indexOf:'--debug'.
+    Debugging := (idx ~~ 0).
+
+    StandAlone ifTrue:[
+        DebuggingStandAlone := Debugging.
+        DebuggingStandAlone ifTrue:[
+            Inspector := MiniInspector.
+            Debugger := MiniDebugger.
+            IgnoreAssertions := false.
+        ].
+    ] ifFalse:[
+        "/
+        "/ define low-level debugging tools - graphical classes are not prepared yet
+        "/ to handle things.
+        "/ This will bring us into the MiniDebugger when an error occurs during startup.
+        "/
+        Inspector := MiniInspector.
+        Debugger := MiniDebugger.
+    ].
 !
 
 isInitialized
@@ -4421,7 +4422,7 @@
         didReadRCFile := false.
 
         StandAlone ifFalse:[
-            self initializeVerboseFlags.
+            "/ self initializeVerboseFlags.
 
             "/
             "/ look for any '-q', '-e', '-l' or '-f' command line arguments