--- a/Smalltalk.st	Sat Mar 01 16:34:15 2014 +0100
+++ b/Smalltalk.st	Sat Mar 01 16:34:40 2014 +0100
@@ -221,22 +221,22 @@
 !Smalltalk class methodsFor:'initialization'!
 
 basicInitializeSystem
-    "initialize all other classes; setup dispatcher processes etc.
+    "initialize all other classes.
      This one is the very first entry into the smalltalk world,
      right after startup, ususally immediately followed by Smalltalk>>start.
      [with error handling, via the initializeSystem]
      Notice:
-	this is not called when an image is restarted; in this
-	case the show starts in Smalltalk>>restart."
+        this is NOT called when an image is restarted; in this
+        case the show starts in Smalltalk>>restart."
 
     Compiler := ByteCodeCompiler.
     Compiler isNil ifTrue:[
-	"
-	 ByteCodeCompiler is not in the system (i.e. has not been linked in)
-	 this allows at least immediate evaluations for runtime systems without compiler
-	 NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
-	"
-	Compiler := Parser
+        "
+         ByteCodeCompiler is not in the system (i.e. has not been linked in)
+         this allows at least immediate evaluations for runtime systems without compiler
+         NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
+        "
+        Compiler := Parser
     ].
 
     "/
@@ -552,16 +552,16 @@
 initializeModules
     "perform module specific initialization and
      send #initialize to all classes.
-     Notice: this is not called when an image is restarted"
+     Notice: this is NOT called when an image is restarted"
 
     self initializeModulesOnce.
     ClassesFailedToInitialize size > 0 ifTrue:[
-	('Smalltalk [info]: retry initialization of failed class(es)...') infoPrintCR.
-	ClassesFailedToInitialize := nil.
-	self initializeModulesOnce.
-	ClassesFailedToInitialize size > 0 ifTrue:[
-	    ('Smalltalk [error]: class(es) persist to fail during initialize') errorPrintCR.
-	]
+        ('Smalltalk [info]: retry initialization of failed class(es)...') infoPrintCR.
+        ClassesFailedToInitialize := nil.
+        self initializeModulesOnce.
+        ClassesFailedToInitialize size > 0 ifTrue:[
+            ('Smalltalk [error]: class(es) persist to fail during initialize') errorPrintCR.
+        ]
     ].
 
     ProjectDefinition initializeAllProjectDefinitions.
@@ -588,8 +588,8 @@
      This one is the very first entry into the smalltalk world,
      right after startup, ususally immediately followed by Smalltalk>>start.
      Notice:
-	this is not called when an image is restarted; in this
-	case the show starts in Smalltalk>>restart."
+        this is NOT called when an image is restarted; 
+        in this case the show starts in Smalltalk>>restart."
 
     |idx|
 
@@ -599,7 +599,7 @@
     AbstractOperatingSystem initializeConcreteClass.
 
     CommandLineArguments isNil ifTrue:[
-	CommandLineArguments := #('stx').
+        CommandLineArguments := #('stx').
     ].
     CommandLine := CommandLineArguments copy.
     CommandLineArguments := CommandLineArguments asOrderedCollection.
@@ -611,39 +611,39 @@
     DebuggingStandAlone := false.
 
     StandAlone ifTrue:[
-	InfoPrinting := false.
-	ObjectMemory infoPrinting:false.
-
-	idx := CommandLineArguments indexOf:'--debug'.
-	idx ~~ 0 ifTrue:[
-	    DebuggingStandAlone := true.
-	].
-	DebuggingStandAlone ifTrue:[
-	    Inspector := MiniInspector.
-	    Debugger := MiniDebugger.
-	].
+        InfoPrinting := false.
+        ObjectMemory infoPrinting:false.
+
+        idx := CommandLineArguments indexOf:'--debug'.
+        idx ~~ 0 ifTrue:[
+            DebuggingStandAlone := true.
+        ].
+        DebuggingStandAlone ifTrue:[
+            Inspector := MiniInspector.
+            Debugger := MiniDebugger.
+        ].
     ] 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.
+        "/
+        "/ 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.
     ].
 
     Error handle:[:ex |
-	StandAlone ifTrue:[
-	    DebuggingStandAlone ifFalse:[
-		'Startup Error - use --debug command line argument for more info' errorPrintCR.
-		Smalltalk exit:1.
-	    ].
-	    'Startup Error' errorPrintCR.
-	    thisContext fullPrintAll.
-	].
-	ex reject.
+        StandAlone ifTrue:[
+            DebuggingStandAlone ifFalse:[
+                'Startup Error - use --debug command line argument for more info' errorPrintCR.
+                Smalltalk exit:1.
+            ].
+            'Startup Error' errorPrintCR.
+            thisContext fullPrintAll.
+        ].
+        ex reject.
     ] do:[
-	self basicInitializeSystem
+        self basicInitializeSystem
     ].
 
     "Modified: / 12-10-2010 / 11:27:47 / cg"
@@ -8218,13 +8218,14 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1068 2014-02-28 23:57:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1069 2014-03-01 15:34:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1068 2014-02-28 23:57:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1069 2014-03-01 15:34:40 cg Exp $'
 !
 
 version_SVN
     ^ '$ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1  $'
 ! !
+