--- a/SyntaxHighlighter2.st	Fri Jun 21 19:16:23 2013 +0100
+++ b/SyntaxHighlighter2.st	Mon Jun 24 13:11:03 2013 +0100
@@ -713,7 +713,7 @@
         ]
     ].
 
-    elements add: (SyntaxElementVariable from: pos1 to: pos2 type: #class value: cls)
+    elements add: ((SyntaxElementVariable from: pos1 to: pos2 type: #class value: cls) name:name)
 
     "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>"
@@ -812,7 +812,7 @@
     prev := (lastVariableElements at:typeSymbol ifAbsentPut:[Dictionary new]) at:name ifAbsent:[nil].
     (prev notNil and:[prev start == pos1]) ifTrue:[^ self].
 
-    element := SyntaxElementVariable from: pos1 to: pos2 type:typeSymbol value: name assigned:assigned.
+    element := (SyntaxElementVariable from: pos1 to: pos2 type:typeSymbol value: name assigned:assigned) name:name.
 
     prev notNil ifTrue:[prev next:element].
     (lastVariableElements at:typeSymbol) at:name put:element.
@@ -825,7 +825,7 @@
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.14 2013-06-14 14:31:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.15 2013-06-23 10:44:44 cg Exp $'
 !
 
 version_HG
@@ -834,6 +834,6 @@
 !
 
 version_SVN
-    ^ '$Id: SyntaxHighlighter2.st,v 1.14 2013-06-14 14:31:48 cg Exp $'
+    ^ '$Id: SyntaxHighlighter2.st,v 1.15 2013-06-23 10:44:44 cg Exp $'
 ! !