--- a/Launcher.st	Sat Jun 22 16:47:31 1996 +0200
+++ b/Launcher.st	Sat Jun 22 18:33:56 1996 +0200
@@ -1034,7 +1034,11 @@
 
         screen visualType == #PseudoColor ifTrue:[
             useFixPalette value ifTrue:[
-                Color getColors6x6x4
+                Color colorAllocationFailSignal handle:[:ex |
+                    self warn:(resources string:'Could not allocate colors.').
+                ] do:[
+                    Color getColors6x6x4
+                ]
             ] ifFalse:[
                 Color releaseFixColors
             ]
@@ -1049,13 +1053,12 @@
         ].
 
         self withWaitCursorDo:[
-            Transcript showCR:'reconfiguring view style ...'.
             View defaultStyle:(View defaultStyle).
         ].
     ].
     box destroy
 
-    "Modified: 21.6.1996 / 17:32:11 / cg"
+    "Modified: 22.6.1996 / 18:17:51 / cg"
 !
 
 fontSettings
@@ -2990,5 +2993,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.159 1996-06-21 16:04:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.160 1996-06-22 16:33:56 cg Exp $'
 ! !