--- a/UserPreferences.st	Tue Feb 14 15:25:42 2012 +0100
+++ b/UserPreferences.st	Tue Feb 14 16:09:53 2012 +0100
@@ -222,6 +222,7 @@
 'Boolean Constant Color'
 'Bracket Color'
 'Class Variable Identifier Color'
+'Collection Enumeration Selector Color'
 'Constant Color'
 'Control Flow Selector Color'
 'Comment Color'
@@ -246,7 +247,7 @@
 'Unimplemented Selector Color'
 )
 
-    "Modified: / 13-02-2012 / 11:57:38 / cg"
+    "Modified: / 14-02-2012 / 15:51:38 / cg"
 ! !
 
 !UserPreferences class methodsFor:'accessing - defaults'!
@@ -2233,6 +2234,28 @@
     "Created: / 4.3.1999 / 12:50:31 / cg"
 !
 
+collectionEnumerationSelectorColor
+    "the color used for some selected collection enumeration
+     selectors (such as collect:, select: etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector color is used."
+
+    ^ self at:#collectionEnumerationSelectorColor ifAbsent:nil
+
+    "Created: / 14-02-2012 / 15:52:39 / cg"
+!
+
+collectionEnumerationSelectorEmphasis
+    "the color used for some selected collection enumeration
+     selectors (such as collect:, select: etc.);
+     If syntaxColoring is turned on.
+     If left nil, the normal selector emphasis is used."
+
+    ^ self at:#collectionEnumerationSelectorEmphasis ifAbsent:nil
+
+    "Created: / 14-02-2012 / 15:58:58 / cg"
+!
+
 commentColor
     "the color used for comments;
      If syntaxColoring is turned on."
@@ -2283,9 +2306,7 @@
     "the color used for some selected controlFlow selectors (such as if, while etc.);
      If syntaxColoring is turned on."
 
-    ^ self at:#controlFlowSelectorColor
-	    ifAbsentPut:[UserPreferences default
-			    at:#controlFlowSelectorColor ifAbsent:[self selectorColor]]
+    ^ self at:#controlFlowSelectorColor ifAbsent:nil
 
     "Created: / 08-09-2006 / 15:51:20 / cg"
 !
@@ -2294,9 +2315,7 @@
     "the emphasis used for some selected controlFlow selectors (such as if, while etc.);
      If syntaxColoring is turned on."
 
-    ^ self at:#controlFlowSelectorEmphasis
-	    ifAbsentPut:[UserPreferences default
-			    at:#controlFlowSelectorEmphasis ifAbsent:[self selectorEmphasis]]
+    ^ self at:#controlFlowSelectorEmphasis ifAbsent:nil
 
     "Created: / 08-09-2006 / 15:51:04 / cg"
 !
@@ -3836,11 +3855,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.301 2012-02-14 10:21:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.302 2012-02-14 15:09:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.301 2012-02-14 10:21:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.302 2012-02-14 15:09:53 cg Exp $'
 !
 
 version_SVN