--- a/Parser.st	Tue Apr 27 19:04:32 2010 +0200
+++ b/Parser.st	Fri Apr 30 11:58:03 2010 +0200
@@ -2072,6 +2072,12 @@
 
 !Parser methodsFor:'code generation hooks'!
 
+blockNodeRewriteHookFor:aBlockNode
+    ^ aBlockNode
+
+    "Created: / 28-04-2010 / 14:18:30 / cg"
+!
+
 messageNodeRewriteHookFor:aMessageNode
     ^ aMessageNode
 
@@ -4562,7 +4568,8 @@
             (tokenType == $] ) ifTrue:[
                 node := BlockNode arguments:args home:currentBlock variables:nil.
                 node lineNumber:lno.
-                ^ node
+                self markBlockFrom:startPos to:tokenPosition.
+                ^ self blockNodeRewriteHookFor:node
             ].
             self syntaxError:'| expected after block-arg declaration'.
             ^ #Error
@@ -4577,9 +4584,9 @@
     ].
 
     self markBlockFrom:startPos to:endPos.
-    ^ node
-
-    "Modified: / 15-01-2008 / 11:51:39 / cg"
+    ^ self blockNodeRewriteHookFor:node
+
+    "Modified: / 28-04-2010 / 14:19:49 / cg"
 !
 
 blockBody:args
@@ -9755,11 +9762,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.637 2010-04-27 12:50:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.638 2010-04-30 09:58:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.637 2010-04-27 12:50:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.638 2010-04-30 09:58:03 cg Exp $'
 ! !
 
 Parser initialize!