--- a/Parser.st	Mon Feb 13 12:03:48 2012 +0100
+++ b/Parser.st	Mon Feb 13 12:04:11 2012 +0100
@@ -2585,6 +2585,12 @@
     "intentionally left empty"
 !
 
+markAssignedVariable:v from:pos1 to:pos2
+    "intentionally left empty"
+
+    "Created: / 13-02-2012 / 11:40:36 / cg"
+!
+
 markBadIdentifierFrom:pos1 to:pos2
     "intentionally left empty"
 !
@@ -7147,6 +7153,8 @@
 
     "/ assignment...
 
+    self markAssignedVariable:var from:pos1 to:pos1 + var name size - 1.
+
     "/ careful: it could already be an implicit self send
     parserFlags implicitSelfSends ifTrue:[
         var isMessage ifTrue:[
@@ -7300,8 +7308,8 @@
     ^ node
 
     "Modified: / 20-08-2011 / 23:32:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 30-09-2011 / 12:18:40 / cg"
     "Modified: / 05-10-2011 / 15:36:55 / az"
+    "Modified: / 13-02-2012 / 12:03:15 / cg"
 !
 
 primary_lazyValue
@@ -10651,11 +10659,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.702 2012-02-13 09:52:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.703 2012-02-13 11:04:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.702 2012-02-13 09:52:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.703 2012-02-13 11:04:11 cg Exp $'
 !
 
 version_SVN