--- a/Parser.st	Tue Jul 05 23:25:22 2011 +0200
+++ b/Parser.st	Tue Jul 05 23:25:51 2011 +0200
@@ -4737,6 +4737,7 @@
                 node := BlockNode arguments:args home:currentBlock variables:nil.
                 node lineNumber:lno.
                 self markBlockFrom:startPos to:tokenPosition.
+                "/ self nextToken. -- should be done & removed in caller
                 ^ self blockNodeRewriteHookFor:node
             ].
             self syntaxError:'| expected after block-arg declaration'.
@@ -4752,9 +4753,10 @@
     ].
 
     self markBlockFrom:startPos to:endPos.
+    "/ self nextToken. -- should be done & removed in caller
     ^ self blockNodeRewriteHookFor:node
 
-    "Modified: / 28-04-2010 / 14:19:49 / cg"
+    "Modified (comment): / 05-07-2011 / 23:23:08 / cg"
 !
 
 blockBody:args
@@ -6719,7 +6721,7 @@
     ^ #Error
 
     "Created: / 13-09-1995 / 12:50:50 / claus"
-    "Modified: / 18-10-2006 / 19:37:50 / cg"
+    "Modified: / 05-07-2011 / 23:22:29 / cg"
 !
 
 primary_dolphinComputedLiteral
@@ -10365,7 +10367,7 @@
 !Parser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.671 2011-07-05 19:24:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.672 2011-07-05 21:25:51 cg Exp $'
 !
 
 version_SVN