--- a/Launcher.st	Fri May 22 11:13:54 1998 +0200
+++ b/Launcher.st	Thu May 28 12:16:03 1998 +0200
@@ -5443,7 +5443,7 @@
 
     oldUserPreferences := UserPreferences current copy.
 
-    syntaxColoringBox := box addComboListOn: (syntaxColors := SelectionInList with:UserPreferences syntaxColors asValue initialSelection:1).
+    syntaxColoringBox := box addComboListOn: (syntaxColors := SelectionInList with:UserPreferences syntaxColors initialSelection:1).
     syntaxColorSelector    := [(syntaxColors selection replChar:$  withString: '') asLowercaseFirst asSymbol].
     syntaxEmphasisSelector := [((syntaxColorSelector value readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol].
     syntaxColor := (UserPreferences current perform: syntaxColorSelector value) asValue.
@@ -5456,7 +5456,7 @@
         [syntaxColor value: (UserPreferences current perform:syntaxColorSelector value).
          syntaxEmphasises selection: (UserPreferences current perform: syntaxEmphasisSelector value).
          recolorAction value.].
-    syntaxEmphasisesBox := box addComboListOn: (syntaxEmphasises := SelectionInList with:#(normal bold italic) asValue initialSelection:1).
+    syntaxEmphasisesBox := box addComboListOn: (syntaxEmphasises := SelectionInList with:#(normal bold italic) initialSelection:1).
     syntaxEmphasises onChangeSend: #value to: 
         [UserPreferences current at: syntaxEmphasisSelector value put: syntaxEmphasises selection asSymbol.
          recolorAction value].
@@ -5486,13 +5486,12 @@
     ].
     box destroy
 
-    "Modified: / 15.4.1998 / 13:41:37 / cg"
     "Modified: / 16.4.1998 / 17:18:16 / ca"
-
+    "Modified: / 28.5.1998 / 12:13:35 / cg"
 ! !
 
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.345 1998-05-21 13:54:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.346 1998-05-28 10:16:03 cg Exp $'
 ! !