--- a/Parser.st	Fri Feb 15 14:52:41 2019 +0100
+++ b/Parser.st	Fri Feb 15 14:52:59 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -5620,7 +5622,7 @@
 
     endPos := tokenPosition.
     "/ blockNode lineNumber:lno.
-    blockNode startPosition:startPos; endPosition:endPos.
+    blockNode startPosition:startPos endPosition:endPos.
 
     self markBlockFrom:startPos to:endPos.
     currentBlock := blockNode home.
@@ -5630,6 +5632,7 @@
 
     "Modified (comment): / 05-07-2011 / 23:23:08 / cg"
     "Modified: / 01-08-2011 / 12:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-02-2019 / 14:41:24 / Claus Gittinger"
 !
 
 blockBody
@@ -6364,8 +6367,7 @@
     (expr == #Error) ifTrue:[^ #Error].
 
     node := ReturnNode expression:expr.
-    node startPosition:pos.
-    node endPosition: expr endPosition.
+    node startPosition:pos endPosition:(expr endPosition).
     node home:self blockHome:currentBlock.
     true "(lineNumberInfo == #full)" ifTrue:[node lineNumber:lnr].
     self checkPlausibilityOf:node from:pos to:node endPosition.
@@ -6378,6 +6380,7 @@
     "Created: / 05-07-2011 / 21:22:05 / cg"
     "Modified: / 27-07-2011 / 13:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-03-2012 / 01:03:36 / cg"
+    "Modified: / 15-02-2019 / 14:41:35 / Claus Gittinger"
 !
 
 statement