--- a/compiler/PPCCodeGenerator.st	Thu Jun 18 06:07:40 2015 +0100
+++ b/compiler/PPCCodeGenerator.st	Thu Jun 18 06:40:15 2015 +0100
@@ -211,7 +211,7 @@
 visitActionNode: node
     | blockNode blockBody blockNodesVar blockNeedsCollection blockMatches childValueVars |
 
-    blockNode := node block ast deepCopy.
+    blockNode := node block sourceNode deepCopy.
     self assert: blockNode arguments size == 1.
     blockNodesVar := blockNode arguments first .
     blockBody := blockNode body.
@@ -480,7 +480,7 @@
     | child blockNode blockBody |
 
     child := node child.
-    blockNode := node block ast copy.
+    blockNode := node block sourceNode deepCopy.
     blockBody := blockNode body.
 
     "Block return value is return value of last statement.
@@ -538,7 +538,7 @@
     ]
 
     "Created: / 02-06-2015 / 17:28:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-06-2015 / 19:03:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-06-2015 / 06:34:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitMessagePredicateNode: node