--- a/Smalltalk.st	Thu Oct 13 00:39:10 2016 +0200
+++ b/Smalltalk.st	Thu Oct 13 00:46:16 2016 +0200
@@ -29,7 +29,8 @@
 		ChangeFileName ImageStartTime ImageRestartTime DemoMode
 		SaveEmergencyImage SpecialObjectArray CallbackSignal
 		ClassesFailedToInitialize HasNoConsole IgnoreHalt
-		PackageToPathMapping IgnoreAssertions'
+		PackageToPathMapping IgnoreAssertions LanguageModifier
+		LanguageCodeset'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -240,14 +241,14 @@
 
     OrderedCollection initialize.
     
-    Compiler := ByteCodeCompiler.
+    Smalltalk at:#Compiler put:ByteCodeCompiler.
     Compiler isNil ifTrue:[
         "
          ByteCodeCompiler is not in the system (i.e. has not been linked in)
          this allows at least immediate evaluations for runtime systems without compiler
          NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
         "
-        Compiler := Parser
+        Smalltalk at:#Compiler put:Parser
     ].
 
     "/
@@ -5127,6 +5128,14 @@
     "Created: / 16-01-2011 / 10:19:42 / cg"
 !
 
+languageCodeset
+    ^ LanguageCodeset
+!
+
+languageModifier
+    ^ LanguageModifier
+!
+
 languageTerritory
     "return the language territory setting"