--- a/BlockNode.st	Tue Oct 25 17:29:30 2011 +0200
+++ b/BlockNode.st	Tue Oct 25 17:54:21 2011 +0200
@@ -60,6 +60,15 @@
     ^ newBlock
 
     "Modified: 28.6.1997 / 15:14:45 / cg"
+!
+
+withExpression:exprNode in:home
+    "a utility function for code generators"
+
+    ^ (self arguments:#() home:home variables:#())
+        statements:(StatementNode new expression:exprNode)
+
+    "Created: / 25-10-2011 / 17:44:05 / cg"
 ! !
 
 !BlockNode methodsFor:'accessing'!
@@ -1003,8 +1012,12 @@
 
 !BlockNode class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.87 2011-10-25 15:54:21 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.86 2011-10-25 15:29:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.87 2011-10-25 15:54:21 cg Exp $'
 !
 
 version_SVN