--- a/Win32OperatingSystem.st	Thu Jan 11 20:45:53 2007 +0100
+++ b/Win32OperatingSystem.st	Fri Jan 12 14:03:23 2007 +0100
@@ -6089,22 +6089,21 @@
 !
 
 getLanguage
-    "return the domain this host is in.
-     Notice:
-	not all systems support this; on some, 'unknown' is returned."
+    "get the LANGUAGE setting (example: de_DE.iso8859-15@euro).
+     An environment value has higher preceedence than the system language setting."
 
     |lang|
 
     lang := self getEnvironment:'LANG'.
     (lang isNil or:[lang = 'default']) ifTrue:[
-	"/ ok, search the registry ...
-	"/ under XP, it is found there ...
-	lang := RegistryEntry
-		    stringValueFor:'sLanguage'
-		    atKey:'HKEY_CURRENT_USER\Control Panel\International'.
-	lang notNil ifTrue:[
-	    lang := self mapLanguage:lang.
-	].
+        "/ ok, search the registry ...
+        "/ under XP, it is found there ...
+        lang := RegistryEntry
+                    stringValueFor:'sLanguage'
+                    atKey:'HKEY_CURRENT_USER\Control Panel\International'.
+        lang notNil ifTrue:[
+            lang := self mapLanguage:lang.
+        ].
     ].
     ^ lang
 
@@ -12718,7 +12717,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.257 2007-01-09 19:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.258 2007-01-12 13:03:23 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!