--- a/StatementNode.st	Fri Jul 25 14:45:42 2008 +0200
+++ b/StatementNode.st	Fri Jul 25 14:45:46 2008 +0200
@@ -262,6 +262,11 @@
     ^ expression isConstant
 !
 
+isSimpleExpression
+    nextStatement notNil ifTrue:[^ false].
+    ^ expression notNil
+!
+
 isSimpleVariable
     nextStatement notNil ifTrue:[^ false].
     ^ expression isVariable
@@ -284,5 +289,5 @@
 !StatementNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.34 2008-01-24 13:50:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.35 2008-07-25 12:45:46 cg Exp $'
 ! !