--- a/Smalltalk.st	Mon Nov 20 14:23:33 2017 +0100
+++ b/Smalltalk.st	Tue Nov 21 21:31:18 2017 +0000
@@ -329,18 +329,12 @@
         HeadlessOperation := false.
     ].
 
-    Language := OperatingSystem getLanguage.
-    LanguageTerritory := OperatingSystem getLanguageTerritory.
-
-
-
-
     "
      Smalltalk initGlobalsFromEnvironment
     "
 
     "Modified: / 14-02-2012 / 15:25:08 / cg"
-    "Modified: / 21-11-2017 / 12:15:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-11-2017 / 21:29:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initInterrupts
@@ -5437,10 +5431,10 @@
 !
 
 setLanguage:aLanguageSymbol territory:aTerritorySymbol
-    "set the language & territory - no change notification"
-
-    Language := aLanguageSymbol asSymbol.
-    LanguageTerritory := aTerritorySymbol asSymbol.
+    <resource: #obsolete>
+    self obsoleteFeatureWarning.
+
+    "Modified (format): / 28-11-2017 / 00:03:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Smalltalk class methodsFor:'system management'!