--- a/ParseTreeIndex.st	Tue Feb 25 21:25:56 2014 +0100
+++ b/ParseTreeIndex.st	Tue Feb 25 22:55:30 2014 +0100
@@ -113,9 +113,15 @@
 !ParseTreeIndex::Element methodsFor:'accessing'!
 
 assigned
-    ^false
+    | p |
+
+    ^ node isVariableNode 
+        and:[(p := node parent) notNil
+            and:[p isAssignment
+                and:[p variable == node]]].
 
     "Created: / 01-07-2013 / 21:53:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-02-2014 / 20:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 firstElementInChain
@@ -296,10 +302,10 @@
 !ParseTreeIndex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.2 2014-02-14 10:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.3 2014-02-25 21:55:30 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.2 2014-02-14 10:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.3 2014-02-25 21:55:30 vrany Exp $'
 ! !