--- a/IRPrinter.st	Mon Mar 30 14:47:18 2009 +0000
+++ b/IRPrinter.st	Mon Mar 30 17:49:01 2009 +0000
@@ -78,22 +78,15 @@
 	stream nextPutAll: 'popTop'
 !
 
-pushBlock: irMethod
+pushBlock: irClosure
 
-	stream nextPutAll: 'pushBlock:'.
-	IRPrinter new
-		indent: indent + 1;
-		stream: stream;
-		interpret: irMethod removeEmptyStart.
-!
+        stream nextPutAll: 'pushBlock:'.
+        IRPrinter new
+                indent: indent + 1;
+                stream: stream;
+                interpret: irClosure removeEmptyStart.
 
-pushBlockMethod: irMethod
-
-	stream nextPutAll: 'pushBlockMethod:'.
-	IRPrinter new
-		indent: indent + 1;
-		stream: stream;
-		interpret: irMethod removeEmptyStart.
+    "Modified: / 30-03-2009 / 16:51:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 pushDup
@@ -156,24 +149,28 @@
 
 send: selector numArgs: numArgs
 
-        stream nextPutAll: 'send: '.
-        selector printOn: stream.
+        stream 
+            nextPutAll: 'send: ';
+            nextPutAll: selector storeString.
         stream nextPutAll: ' numArgs: '.
         numArgs printOn: stream.
 
     "Created: / 01-12-2008 / 19:41:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 30-03-2009 / 18:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 send: selector numArgs: numArgs toSuperOf: behavior
 
-        stream nextPutAll: 'send: '.
-        selector printOn: stream.
+        stream 
+            nextPutAll: 'send: ';
+            nextPutAll: selector storeString.
         stream nextPutAll: ' numArgs: '.
         numArgs printOn: stream.
         stream nextPutAll: ' toSuperOf: '.
         behavior printOn: stream.
 
     "Created: / 01-12-2008 / 19:46:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 30-03-2009 / 18:44:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 storeTemp: index kind: kind level: level