--- a/IRPrinter.st	Wed Feb 25 16:49:21 2009 +0000
+++ b/IRPrinter.st	Mon Mar 30 14:47:18 2009 +0000
@@ -125,13 +125,23 @@
 	object printOn: stream.
 !
 
-pushTemp: index
+pushTemp: index kind: kind level: level
 
-	stream nextPutAll: 'pushTemp: '.
-	index printOn: stream.
-	index = 0 ifTrue: [stream nextPutAll: ' "receiver"'].
-	index = -1 ifTrue: [stream nextPutAll: ' "thisEnv"'].
-	index = -2 ifTrue: [stream nextPutAll: ' "thisContext"'].
+        stream 
+            nextPutAll: 'push ';
+            nextPutAll: kind;
+            nextPutAll: ': '.
+        index printOn: stream.
+        level == 0 ifFalse:
+            [stream
+                nextPutAll:' level: '.
+            level printOn: stream].                
+            
+        index = 0 ifTrue: [stream nextPutAll: ' "receiver"'].
+        index = -1 ifTrue: [stream nextPutAll: ' "thisEnv"'].
+        index = -2 ifTrue: [stream nextPutAll: ' "thisContext"'].
+
+    "Created: / 30-03-2009 / 14:04:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 remoteReturn
@@ -166,11 +176,21 @@
     "Created: / 01-12-2008 / 19:46:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-storeTemp: index
+storeTemp: index kind: kind level: level
 
-	stream nextPutAll: 'storeTemp: '.
-	index printOn: stream.
-	index = -1 ifTrue: [stream nextPutAll: ' "thisEnv"'].
+        stream 
+            nextPutAll: 'store ';
+            nextPutAll: kind;
+            nextPutAll: ': '.
+        index printOn: stream.
+        level == 0 ifFalse:
+            [stream
+                nextPutAll:' level: '.
+            level printOn: stream].  
+
+        index = -1 ifTrue: [stream nextPutAll: ' "thisEnv"'].
+
+    "Created: / 30-03-2009 / 14:05:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !IRPrinter methodsFor:'interpret'!