--- a/SyntaxHighlighter.st	Fri Mar 19 09:13:35 2004 +0100
+++ b/SyntaxHighlighter.st	Fri Mar 19 14:14:20 2004 +0100
@@ -477,7 +477,7 @@
 !
 
 markSelector:selectorString from:pos1 to:pos2 receiverNode:aReceiverNode
-    |fg sel check ok rec em|
+    |fg selectorSymbol check ok rec em|
 
 "/ uncommenting the code below
 "/ will suppress highlighting of common selectors ...
@@ -498,14 +498,14 @@
 
     fg := selectorColor.
     em := selectorEmphasis.
-    selectorString knownAsSymbol ifFalse:[
+    selectorSymbol := selectorString asSymbolIfInterned.
+    selectorSymbol isNil ifTrue:[
         fg := Color red.
-    ] ifTrue:[
+    ] ifFalse:[
         fullSelectorCheck == true ifTrue:[
-            sel := selectorString asSymbol.
 
-            check := [:cls | (cls includesSelector:sel)
-                             or:[cls class includesSelector:sel]].
+            check := [:cls | (cls includesSelector:selectorSymbol)
+                             or:[cls class includesSelector:selectorSymbol]].
 
             ok := false.
 
@@ -656,5 +656,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.42 2003-04-11 17:06:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.43 2004-03-19 13:14:20 stefan Exp $'
 ! !