--- a/PrimaryNode.st	Fri Apr 17 17:15:02 2015 +0200
+++ b/PrimaryNode.st	Fri Apr 17 17:15:29 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 ParseNode subclass:#PrimaryNode
 	instanceVariableNames:'value line charIndex'
 	classVariableNames:''
@@ -86,6 +88,7 @@
     ^ self subclassResponsibility
 ! !
 
+
 !PrimaryNode methodsFor:'evaluation'!
 
 store:aValue
@@ -112,6 +115,18 @@
     ^ false
 !
 
+isBlockArg
+    "return false here; to be redefined in subclass(es)"
+
+    ^ false
+!
+
+isBlockVariable
+    "return false here; to be redefined in subclass(es)"
+
+    ^ false
+!
+
 isClassVariable
     ^ false
 !
@@ -128,6 +143,12 @@
     ^ false
 !
 
+isPoolVariable
+    "return false here; to be redefined in subclass(es)"
+
+    ^ false
+!
+
 isPrimary
     "return true, if this is a node for a primary (i.e. non-send)"
 
@@ -141,9 +162,10 @@
 !PrimaryNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.31 2011-07-25 21:52:50 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.32 2015-04-17 15:15:29 stefan Exp $'
 !
 
 version_SVN
-    ^ '§ Id §'
+    ^ '$ Id $'
 ! !
+