--- a/Launcher.st	Tue Jun 18 11:33:27 1996 +0200
+++ b/Launcher.st	Tue Jun 18 17:12:39 1996 +0200
@@ -1026,6 +1026,8 @@
     box open.
 
     box accepted ifTrue:[
+        Image flushDeviceImages.
+
         screen visualType == #PseudoColor ifTrue:[
             useFixPalette value ifTrue:[
                 Color getColors6x6x4
@@ -1049,7 +1051,7 @@
     ].
     box destroy
 
-    "Modified: 17.6.1996 / 19:14:13 / cg"
+    "Modified: 18.6.1996 / 13:06:04 / cg"
 !
 
 fontSettings
@@ -2984,5 +2986,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.156 1996-06-18 09:33:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.157 1996-06-18 15:12:39 cg Exp $'
 ! !