--- a/compiler/PPCCodeGenerator.st	Thu Jun 18 06:40:15 2015 +0100
+++ b/compiler/PPCCodeGenerator.st	Thu Jun 18 21:20:15 2015 +0100
@@ -211,7 +211,7 @@
 visitActionNode: node
     | blockNode blockBody blockNodesVar blockNeedsCollection blockMatches childValueVars |
 
-    blockNode := node block sourceNode deepCopy.
+    blockNode := node block sourceNode copy.
     self assert: blockNode arguments size == 1.
     blockNodesVar := blockNode arguments first .
     blockBody := blockNode body.
@@ -304,7 +304,7 @@
         compiler code: blockBody.    
     ]
 
-    "Modified: / 17-06-2015 / 16:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-06-2015 / 07:41:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitAndNode: node
@@ -480,7 +480,7 @@
     | child blockNode blockBody |
 
     child := node child.
-    blockNode := node block sourceNode deepCopy.
+    blockNode := node block sourceNode copy.
     blockBody := blockNode body.
 
     "Block return value is return value of last statement.