--- a/ParseNode.st	Mon Sep 12 10:18:55 2011 +0200
+++ b/ParseNode.st	Mon Sep 12 10:19:19 2011 +0200
@@ -77,6 +77,7 @@
     "Created: 21.10.1996 / 14:42:27 / cg"
 ! !
 
+
 !ParseNode methodsFor:'accessing'!
 
 endPosition
@@ -625,10 +626,18 @@
     ^ false
 
     "Created: 14.4.1996 / 00:46:44 / cg"
+!
+
+isVariableNode
+    "return true, if this is a node for a variable"
+
+    ^ self isVariable
+
+    "Created: / 12-09-2011 / 09:32:17 / cg"
 ! !
 
 !ParseNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.63 2011-07-28 14:58:02 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.64 2011-09-12 08:19:19 cg Exp $'
 ! !