--- a/UserPreferences.st	Mon May 29 16:16:08 2017 +0200
+++ b/UserPreferences.st	Tue May 30 16:13:23 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -876,6 +874,8 @@
     ^ modified ? false
 ! !
 
+
+
 !UserPreferences methodsFor:'accessing-locale'!
 
 dateInputFormat
@@ -1609,6 +1609,7 @@
     ^ DiffCodeView
 ! !
 
+
 !UserPreferences methodsFor:'accessing-prefs-UI'!
 
 allowMouseWheelZoom
@@ -4983,6 +4984,26 @@
     "Created: / 20-09-2006 / 23:55:01 / cg"
 !
 
+language:aLanguageSymbol territory:aTerritorySymbol
+    "/ intermediate migration code;
+    "/ for now, Smalltalk uses a global language and territory setting;
+    "/ however, for multi-user operation, this must be in a preference-setting.
+    "/ For now, forward to smalltalk, until all references to "Smalltalk-language"
+    "/ are replaced with "UserPreferences current language"
+
+    self at:#language put:aLanguageSymbol.
+    self at:#languageTerritory put:aTerritorySymbol.
+    Smalltalk language:aLanguageSymbol territory:aTerritorySymbol
+
+    "
+     UserPreferences current language
+     UserPreferences current language:#en territory:#us
+     UserPreferences current language:#de territory:#de
+    "
+
+    "Created: / 30-05-2017 / 16:02:06 / stefan"
+!
+
 languageTerritory
     "/ intermediate migration code;
     "/ for now, Smalltalk uses a global language and territory setting;