--- a/Smalltalk.st	Tue Feb 14 14:22:17 2012 +0100
+++ b/Smalltalk.st	Tue Feb 14 15:25:42 2012 +0100
@@ -300,20 +300,20 @@
     |envString i langString terrString|
 
     StandAlone isNil ifTrue:[
-	StandAlone := false.
+        StandAlone := false.
     ].
     HeadlessOperation isNil ifTrue:[
-	HeadlessOperation := false.
+        HeadlessOperation := false.
     ].
 
     "
      extract Language and LanguageTerritory from LANG variable.
      valid are for example:
-			    en_en / en
-			    en_us
-			    en_gb
-			    de_de / de
-			    de_at       (for Austria)
+                            en_en / en
+                            en_us
+                            en_gb
+                            de_de / de
+                            de_at       (for Austria)
     "
 
     Language := #en.
@@ -321,48 +321,48 @@
 
 
     "Format of LANG is: language[_territory][.codeset][@modifier]
-	language        ISO-639  Language code
-	territory       ISO-3166 Contry code"
+        language        ISO-639  Language code
+        territory       ISO-3166 Contry code"
 
     envString := OperatingSystem getLanguage.
     envString size > 0 ifTrue:[
-	i := envString indexOf:$@.
-	(i ~~ 0) ifTrue:[
-	    envString := envString copyTo:(i - 1).
-	    LanguageModifier := (envString copyFrom:(i + 1)) asLowercase asSymbol.
-	] ifFalse:[
-	    LanguageModifier := nil.
-	].
-	i := envString indexOf:$..
-	(i ~~ 0) ifTrue:[
-	    envString := envString copyTo:(i - 1).
-	    LanguageCodeset := (envString copyFrom:(i + 1)) asLowercase asSymbol
-	] ifFalse:[
-	    LanguageCodeset := #'iso8859-1'.
-	].
-	i := envString indexOf:$_.
-	(i == 0) ifTrue:[
-	    langString := envString.
-	    terrString := envString
-	] ifFalse:[
-	    langString := envString copyTo:(i - 1).
-	    terrString := envString copyFrom:(i + 1)
-	].
-	langString := langString asLowercase.
-	terrString := terrString asLowercase.
-	(langString = 'c' or:[terrString = 'c']) ifTrue:[
-	    ('Smalltalk [info]: ignoring wrong LANG setting (',langString,'_',terrString,') - using english') infoPrintCR.
-	] ifFalse:[
-	    Language := langString asSymbol.
-	    LanguageTerritory := terrString asSymbol
-	]
+        i := envString indexOf:$@.
+        (i ~~ 0) ifTrue:[
+            LanguageModifier := (envString copyFrom:(i + 1)) asLowercase asSymbol.
+            envString := envString copyTo:(i - 1).
+        ] ifFalse:[
+            LanguageModifier := nil.
+        ].
+        i := envString indexOf:$..
+        (i ~~ 0) ifTrue:[
+            LanguageCodeset := (envString copyFrom:(i + 1)) asLowercase asSymbol.
+            envString := envString copyTo:(i - 1).
+        ] ifFalse:[
+            LanguageCodeset := #'iso8859-1'.
+        ].
+        i := envString indexOf:$_.
+        (i == 0) ifTrue:[
+            langString := envString.
+            terrString := envString
+        ] ifFalse:[
+            langString := envString copyTo:(i - 1).
+            terrString := envString copyFrom:(i + 1)
+        ].
+        langString := langString asLowercase.
+        terrString := terrString asLowercase.
+        (langString = 'c' or:[terrString = 'c']) ifTrue:[
+            ('Smalltalk [info]: ignoring wrong LANG setting (',langString,'_',terrString,') - using english') infoPrintCR.
+        ] ifFalse:[
+            Language := langString asSymbol.
+            LanguageTerritory := terrString asSymbol
+        ]
     ].
 
     "
      Smalltalk initGlobalsFromEnvironment
     "
 
-    "Modified: 22.2.1996 / 16:59:12 / cg"
+    "Modified: / 14-02-2012 / 15:25:08 / cg"
 !
 
 initInterrupts
@@ -7739,11 +7739,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.988 2012-02-07 14:58:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.989 2012-02-14 14:25:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.988 2012-02-07 14:58:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.989 2012-02-14 14:25:42 cg Exp $'
 !
 
 version_SVN