--- a/ConstantNode.st	Fri Nov 06 19:14:56 2009 +0100
+++ b/ConstantNode.st	Fri Nov 06 19:15:23 2009 +0100
@@ -325,10 +325,22 @@
 
 isConstant
     ^ true
+!
+
+withConstantValueDo:aBlock
+    "return true, if this evaluates to a constant value
+     and evaluate aBlock with it"
+
+    aBlock value:value.
+    ^ true
 ! !
 
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.43 2008-10-20 15:10:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.44 2009-11-06 18:15:23 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.44 2009-11-06 18:15:23 cg Exp $'
 ! !