--- a/Parser.st	Tue Dec 02 17:32:00 2014 +0100
+++ b/Parser.st	Tue Dec 02 18:18:17 2014 +0100
@@ -6748,7 +6748,8 @@
                             | IDENTIFIER
     "
 
-    |receiver arg sel args pos pos2 lno tokenStart tokenEnd realReceiver positions|
+    |receiver arg sel args pos pos2 lno tokenStart tokenEnd realReceiver positions
+     lastSemiPosition|
 
     pos := tokenPosition.
     receiver := self keywordExpression.
@@ -6762,6 +6763,7 @@
             realReceiver := receiver receiver.
         ].
         [tokenType == $;] whileTrue:[
+            lastSemiPosition := tokenPosition.
             self nextToken.
             (tokenType == #Identifier) ifTrue:[
                 tokenStart := tokenPosition.
@@ -6840,7 +6842,7 @@
                     ] ifFalse:[
                         (tokenType == #Error) ifTrue:[^ #Error].
                         self syntaxError:('invalid cascade; ' , tokenType printString , ' unexpected')
-                                position:tokenPosition to:source position.
+                                position:lastSemiPosition to:source position.
                         ^ #Error
                     ]
                 ]
@@ -12014,11 +12016,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.849 2014-12-02 16:32:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.850 2014-12-02 17:18:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.849 2014-12-02 16:32:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.850 2014-12-02 17:18:17 cg Exp $'
 !
 
 version_SVN