--- a/IRPrinter.st	Mon May 11 20:20:05 2009 +0000
+++ b/IRPrinter.st	Tue May 12 11:10:22 2009 +0000
@@ -173,6 +173,14 @@
     "Modified: / 30-03-2009 / 18:44:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
+storeIntoLiteralVariable: name
+        stream 
+            nextPutAll: 'storeLiteralVariable: ';
+            nextPutAll: name
+
+    "Created: / 11-05-2009 / 22:39:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 storeTemp: index kind: kind level: level
 
         stream