--- a/AbstractSettingsApplication.st	Sun Feb 01 21:47:36 2015 +0100
+++ b/AbstractSettingsApplication.st	Sun Feb 01 22:54:05 2015 +0100
@@ -16412,8 +16412,10 @@
     ^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
 !
 
-syntaxColorSelectorForElement:aSyntaxElement
-    ^ (aSyntaxElement replChar:$  withString: '') asLowercaseFirst asSymbol
+syntaxColorSelectorForElement:aSyntaxElementsName
+    "/ old code - error prone
+    ^ (UserPreferences syntaxColorNamesAndKeys detect:[:el | el first = aSyntaxElementsName]) second
+"/    ^ (aSyntaxElementsName replChar:$  withString: '') asLowercaseFirst asSymbol
 !
 
 syntaxEmphasisSelector
@@ -16421,9 +16423,10 @@
     ^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
 !
 
-syntaxEmphasisSelectorForElement:anEmElement
-    ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
-	asLowercaseFirst asSymbol
+syntaxEmphasisSelectorForElement:aSyntaxElementsName
+    ^ (UserPreferences syntaxColorNamesAndKeys detect:[:el | el first = aSyntaxElementsName]) third
+"/    ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
+"/        asLowercaseFirst asSymbol
 ! !
 
 !AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
@@ -19010,10 +19013,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.584 2015-01-06 11:55:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.585 2015-02-01 21:54:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.584 2015-01-06 11:55:07 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.585 2015-02-01 21:54:05 cg Exp $'
+! !
+