--- a/SyntaxHighlighter.st	Thu Mar 04 13:07:12 1999 +0100
+++ b/SyntaxHighlighter.st	Sat Mar 06 03:17:01 1999 +0100
@@ -468,7 +468,7 @@
 markVariable:v from:pos to:endPos
     "support for syntaxColoring"
 
-    |type globalValue|
+    |type globalValue nameSym|
 
     type := v type.
     (type == #BlockArg
@@ -482,7 +482,10 @@
         ^ self
     ].
     (type == #GlobalVariable) ifTrue:[
-        globalValue := Smalltalk at:v name ifAbsent:nil.
+        nameSym := v name asSymbolIfInterned.
+        nameSym notNil ifTrue:[
+            globalValue := Smalltalk at:nameSym ifAbsent:nil.
+        ].
         globalValue isBehavior ifTrue:[
             self markGlobalClassIdentifierFrom:pos to:endPos.
         ] ifFalse:[
@@ -504,5 +507,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.16 1999-03-04 12:06:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.17 1999-03-06 02:17:01 cg Exp $'
 ! !