# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1311794125 -7200
# Node ID 8f0990630232d4f825ee0cc4a1db4e6b381287c5
# Parent  b6a632caa93767a8a507ae590b1341d3e1d621da
x

diff -r b6a632caa937 -r 8f0990630232 ConstantNode.st
--- 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