--- a/Smalltalk.st	Sat Jan 15 14:21:03 2011 +0100
+++ b/Smalltalk.st	Sun Jan 16 10:20:09 2011 +0100
@@ -4354,6 +4354,18 @@
     "Modified: / 19-10-2006 / 23:17:36 / cg"
 !
 
+languageAndTerritory
+    "return the language and territory in the format lang-terr (i.e. de-de, en-us)"
+
+    ^ Language , '-' , (LanguageTerritory ? Language)
+
+    "
+     Smalltalk languageAndTerritory
+    "
+
+    "Created: / 16-01-2011 / 10:19:42 / cg"
+!
+
 languageTerritory
     "return the language territory setting"
 
@@ -7466,9 +7478,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.946 2010-11-18 10:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.947 2011-01-16 09:20:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.946 2010-11-18 10:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.947 2011-01-16 09:20:09 cg Exp $'
 ! !