--- a/Smalltalk.st	Wed Nov 22 16:48:48 1995 +0100
+++ b/Smalltalk.st	Wed Nov 22 17:21:33 1995 +0100
@@ -25,7 +25,7 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.86 1995-11-22 15:48:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.87 1995-11-22 16:21:33 cg Exp $'
 !
 
 documentation
@@ -190,10 +190,9 @@
 
     "
      extract Language and LanguageTerritory from LANG variable.
-     the language and territory must not be abbreviated,
-     valid are for example: english_usa
-			    english
-			    german
+     valid are for example: english_usa / us_us / us
+			    english / en_en / en
+			    german / de_de / de
 			    german_austria
     "
 
@@ -211,8 +210,8 @@
 	        langString := envString copyTo:(i - 1).
 	        terrString := envString copyFrom:(i + 1)
 	    ].
-	    Language := langString asSymbol.
-	    LanguageTerritory := terrString asSymbol
+	    Language := langString asLowercase asSymbol.
+	    LanguageTerritory := terrString asLowercase asSymbol
 	]
     ].