--- a/IRInstruction.st	Wed Nov 05 18:58:44 2008 +0000
+++ b/IRInstruction.st	Mon Dec 01 19:01:08 2008 +0000
@@ -105,6 +105,26 @@
 		selector: selector
 !
 
+send: selector numArgs: numArgs
+
+        ^ IRSend new
+                selector: selector;
+                numArgs: numArgs
+
+    "Created: / 01-12-2008 / 19:56:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+send: selector numArgs: numArgs toSuperOf: behavior
+
+        behavior ifNil: [self error: 'super of nil does not exist'].
+        ^ IRSend new
+                selector: selector;
+                numArgs: numArgs;
+                superOf: behavior
+
+    "Created: / 01-12-2008 / 19:57:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 send: selector toSuperOf: behavior
 
 	behavior ifNil: [self error: 'super of nil does not exist'].