--- a/Launcher.st	Fri Apr 26 17:45:00 1996 +0200
+++ b/Launcher.st	Fri Apr 26 17:46:48 1996 +0200
@@ -1013,8 +1013,7 @@
             ] ifFalse:[
                 language := newLanguage
             ].
-            Smalltalk at:#Language put:language asSymbol.
-            Smalltalk changed:#Language.
+            Smalltalk language:language asSymbol.
             ResourcePack flushCachedResourcePacks
         ].
         self reopenLauncher.
@@ -1024,7 +1023,7 @@
     box showAtPointer.
     box destroy
 
-    "Modified: 2.3.1996 / 16:59:37 / cg"
+    "Modified: 26.4.1996 / 17:13:18 / cg"
 !
 
 memorySettings
@@ -2555,5 +2554,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.117 1996-04-25 16:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.118 1996-04-26 15:46:48 cg Exp $'
 ! !