--- a/IRBuilder.st	Mon Feb 15 17:55:26 2010 +0000
+++ b/IRBuilder.st	Tue Mar 23 13:38:08 2010 +0000
@@ -127,6 +127,20 @@
 	self addTemps: {tempKey}
 !
 
+addTempIfNotDefined: tempKey
+
+        self addTempsIfNotDefined: (Array with: tempKey)
+
+    "Created: / 23-03-2010 / 13:46:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+addTempsIfNotDefined: temps
+
+    ir addTempsIfNotDefined: temps
+
+    "Created: / 23-03-2010 / 13:46:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initialize
 
     ^self initializeFor: IRMethod new.