--- a/IRTranslator.st	Tue Apr 28 15:03:39 2009 +0000
+++ b/IRTranslator.st	Mon May 11 20:20:05 2009 +0000
@@ -106,6 +106,7 @@
 
 pushBlock: irClosure
 
+    self doPending.
     gen makeBlock: irClosure
 
     "
@@ -116,7 +117,7 @@
         self addPending: (Message selector: #pushLiteral: argument: block)
     "
 
-    "Modified: / 30-03-2009 / 18:15:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 11-05-2009 / 22:13:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 pushDup