--- a/ConstantNode.st	Wed Jul 27 21:15:02 2011 +0200
+++ b/ConstantNode.st	Wed Jul 27 21:15:25 2011 +0200
@@ -106,8 +106,9 @@
 
 type:t value:val from: startPos to: endPos
 
-    ^(self type: t value: val)
-        startPosition: startPos;
+    ^(self basicNew)
+        type: t value: val;
+        startPosition: startPos
         endPosition: endPos;
         yourself
 
@@ -395,7 +396,7 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.48 2011-07-25 22:37:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.49 2011-07-27 19:15:25 vrany Exp $'
 !
 
 version_SVN