--- a/PrimaryNode.st	Tue Jun 28 22:06:14 2011 +0200
+++ b/PrimaryNode.st	Tue Jun 28 22:08:42 2011 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libcomp' }"
 
 ParseNode subclass:#PrimaryNode
-	instanceVariableNames:'value'
+	instanceVariableNames:'value line charIndex'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler-Support'
@@ -46,6 +46,22 @@
 
 !PrimaryNode methodsFor:'accessing'!
 
+charIndex
+    ^ charIndex
+!
+
+charIndex:something
+    charIndex := something.
+!
+
+line
+    ^ line
+!
+
+line:something
+    line := something.
+!
+
 type:t value:val
     type := t.
     value := val
@@ -124,10 +140,10 @@
 
 !PrimaryNode class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.29 2010-01-18 16:01:14 cg Exp $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.30 2011-06-28 20:08:42 vrany Exp $'
 !
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.29 2010-01-18 16:01:14 cg Exp $'
+version_SVN
+    ^ ' Id '
 ! !