--- a/Launcher.st	Tue Aug 04 16:26:24 1998 +0200
+++ b/Launcher.st	Tue Aug 04 16:57:58 1998 +0200
@@ -3614,6 +3614,8 @@
             oldLanguage := Smalltalk language.
             Smalltalk language:language asSymbol.
             ResourcePack flushCachedResourcePacks.
+            "/ refetch resources ...
+            resources := requestor class classResources.
             fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
             Smalltalk language:oldLanguage.
 
@@ -3623,9 +3625,14 @@
                 "/ look if there is one at all.
                 matchingFonts := Screen current listOfAvailableFonts select:[:f | fontPref match:f encoding].
                 matchingFonts size == 0 ifTrue:[
+                    "/ flush and try again - just in case, the font path has changed.
+                    Screen current flushListOfAvailableFonts.
+                    matchingFonts := Screen current listOfAvailableFonts select:[:f | fontPref match:f encoding].
+                ].
+                matchingFonts size == 0 ifTrue:[
                     (Dialog 
                         confirm:(resources 
-                                    string:'your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
+                                    string:'Your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
                                       with:fontPref) withCRs)
                     ifFalse:[
                         switch := false
@@ -3642,7 +3649,7 @@
                         switch := false
                     ] ifFalse:[
                         answer ifTrue:[
-                            switch := (self fontBoxForEncoding:fontPref)
+                            switch := (requestor fontBoxForEncoding:fontPref)
                         ]
                     ].
                 ].
@@ -3665,7 +3672,7 @@
     box destroy
 
     "Modified: / 9.9.1996 / 22:43:27 / stefan"
-    "Modified: / 4.5.1998 / 12:38:51 / cg"
+    "Modified: / 4.8.1998 / 16:54:32 / cg"
 !
 
 memorySettingsFor:requestor
@@ -5612,5 +5619,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.364 1998-08-03 21:22:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.365 1998-08-04 14:57:58 cg Exp $'
 ! !