--- a/ParseNodeValidator.st	Sat Aug 20 20:08:03 2011 +0200
+++ b/ParseNodeValidator.st	Sun Aug 21 11:41:13 2011 +0200
@@ -131,14 +131,26 @@
         ifFalse:[ accept value:anObject. ]
 
     "Created: / 25-07-2011 / 23:14:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+visitVariableNode:anObject
+
+    self 
+        assert: anObject name = 
+            (source copyFrom: anObject startPosition to: anObject endPosition).
+
+    super visitVariableNode: anObject.
+
+    "Modified: / 25-07-2011 / 22:38:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 20-08-2011 / 23:21:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ParseNodeValidator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNodeValidator.st,v 1.5 2011-08-01 11:53:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNodeValidator.st,v 1.6 2011-08-21 09:41:13 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNodeValidator.st,v 1.5 2011-08-01 11:53:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNodeValidator.st,v 1.6 2011-08-21 09:41:13 vrany Exp $'
 ! !