--- a/Parser.st	Wed Jul 27 17:03:16 2011 +0200
+++ b/Parser.st	Wed Jul 27 21:15:02 2011 +0200
@@ -6701,7 +6701,7 @@
             (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
                 ^ #Error
             ].
-            ^ ConstantNode type:#Array value:val
+            ^ ConstantNode type:#Array value:val from: pos to: tokenLastEndPosition.
         ].
     ].
 
@@ -6723,7 +6723,7 @@
             self parseError:'number expected after sign.' position:pos to:tokenPosition.
             ^ #Error.
         ].
-        ^ ConstantNode type:(node type) value:(node value negated).
+        ^ ConstantNode type:(node type) value:(node value negated) from: node startPosition to: node endPosition.
     ].
 
     (tokenType == #Error) ifTrue:[^ #Error].
@@ -6747,7 +6747,7 @@
 
     "Created: / 13-09-1995 / 12:50:50 / claus"
     "Modified: / 05-07-2011 / 23:22:29 / cg"
-    "Modified: / 27-07-2011 / 15:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-07-2011 / 20:04:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 primary_dolphinComputedLiteral
@@ -7278,7 +7278,7 @@
         ].
     ].
     val := ConstantNode type: tokenType value:tokenValue
-                        from: pos to:source position1Based-1.
+                        from: pos to: source position1Based-1.
 
     ((tokenType == #Symbol) or:[tokenType == #ESSymbol]) ifTrue:[
         self markSymbolFrom:tokenPosition to:tokenPosition+tokenValue size-1.
@@ -7297,6 +7297,7 @@
     ^ val
 
     "Modified: / 19-07-2011 / 18:08:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2011 / 20:04:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 primary_squeakComputedArray
@@ -10486,7 +10487,7 @@
 !Parser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.676 2011-07-27 15:03:16 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.677 2011-07-27 19:15:02 vrany Exp $'
 !
 
 version_SVN