--- a/PrimitiveNode.st	Fri Jul 25 14:45:46 2008 +0200
+++ b/PrimitiveNode.st	Fri Jul 25 14:45:50 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libcomp' }"
 
 StatementNode subclass:#PrimitiveNode
@@ -146,10 +145,22 @@
 
 isOptional
     ^ optional
+!
+
+isSimpleConstant
+    ^ false
+!
+
+isSimpleExpression
+    ^ false
+!
+
+isSimpleVariable
+    ^ false
 ! !
 
 !PrimitiveNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.21 2005-04-19 14:31:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.22 2008-07-25 12:45:50 cg Exp $'
 ! !