--- a/MessageNode.st	Wed Jul 27 21:15:25 2011 +0200
+++ b/MessageNode.st	Thu Jul 28 16:57:44 2011 +0200
@@ -194,6 +194,7 @@
                         result := recVal perform:selector with:argVal.
                     ].
                     ^ ConstantNode type:(ConstantNode typeOfConstant:result) value:result
+                                   from: recNode startPosition to: argNode endPosition
                 ]
             ]
         ].
@@ -212,7 +213,8 @@
 
     ^ (self basicNew) receiver:recNode selector:selectorString args:(Array with:argNode) lineno:0
 
-    "Modified: / 16.11.1999 / 21:50:33 / cg"
+    "Modified: / 16-11-1999 / 21:50:33 / cg"
+    "Modified: / 28-07-2011 / 09:58:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 receiver:recNode selector:selectorString args:anArray
@@ -3062,7 +3064,7 @@
 !MessageNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.184 2011-07-27 15:00:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.185 2011-07-28 14:57:44 vrany Exp $'
 !
 
 version_SVN