--- a/UnixOperatingSystem.st	Thu Dec 13 16:14:48 2012 +0100
+++ b/UnixOperatingSystem.st	Thu Dec 13 17:21:33 2012 +0100
@@ -6413,6 +6413,30 @@
     "Modified: / 5.6.1998 / 18:38:52 / cg"
 !
 
+getCodeSet
+    "get the codeset, we are running under"
+
+    |codeSet|
+
+%{  /* NOCONTEXT */
+#include <langinfo.h>
+    {
+        char *__codeset;
+
+        __codeset = nl_langinfo(CODESET);
+        if (strlen(__codeset) > 0) {
+            codeSet = __MKSTRING(__codeset));
+        }
+    }
+%}.
+    CodeSet := codeSet.
+    ^ codeSet.
+
+    "
+     OperatingSystem getCodeSet
+    "
+!
+
 getDomainName
     "return the domain this host is in.
      Notice:
@@ -13377,11 +13401,11 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.294 2012-12-13 15:13:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.295 2012-12-13 16:21:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.294 2012-12-13 15:13:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.295 2012-12-13 16:21:33 stefan Exp $'
 ! !
 
 UnixOperatingSystem initialize!