--- a/AbstractOperatingSystem.st	Sat Nov 22 22:23:00 2003 +0100
+++ b/AbstractOperatingSystem.st	Sat Nov 22 22:24:41 2003 +0100
@@ -3192,6 +3192,12 @@
     self subclassResponsibility
 !
 
+getLanguage
+    "get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
+
+    ^ self getEnvironment:'LANG'.
+!
+
 getLocaleInfo
     "return a dictionary filled with values from the locale information;
      Not all fields may be present, depending on the OS's setup and capabilities.
@@ -5499,7 +5505,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.117 2003-11-20 19:34:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.118 2003-11-22 21:24:41 stefan Exp $'
 ! !
 
 AbstractOperatingSystem initialize!