--- a/SyntaxHighlighter2.st	Fri Nov 18 15:07:05 2011 +0100
+++ b/SyntaxHighlighter2.st	Fri Nov 18 15:07:20 2011 +0100
@@ -702,19 +702,22 @@
     super markGlobalClassIdentifierFrom:pos1 to:pos2.
 
     name := token isString ifTrue:[token asSymbolIfInterned] ifFalse:[nil].
-    name ifNotNil:
-        [env := (classToCompileFor ? UndefinedObject) theNonMetaclass environment.
+    name notNil ifTrue:[
+        env := (classToCompileFor ? UndefinedObject) theNonMetaclass environment.
         cls := env isNameSpace 
                 ifTrue:[env at: name]
                 ifFalse:[nil].
-        cls ifNil:[
-        cls := Smalltalk at: name]].
+        cls isNil ifTrue:[
+            cls := Smalltalk at: name
+        ]
+    ].
 
     elements add:
         (SyntaxElement from: pos1 to: pos2 type: #class value: cls)
 
     "Created: / 14-02-2010 / 14:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-02-2010 / 10:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:54:53 / cg"
 !
 
 markLocalIdentifierFrom:pos1 to:pos2
@@ -787,7 +790,7 @@
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.6 2011-08-21 10:25:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.7 2011-11-18 14:07:20 cg Exp $'
 !
 
 version_SVN