--- a/IRPrinter.st	Wed Nov 05 18:58:44 2008 +0000
+++ b/IRPrinter.st	Mon Dec 01 19:01:08 2008 +0000
@@ -136,18 +136,26 @@
 	stream nextPutAll: 'returnTop'.
 !
 
-send: selector
+send: selector numArgs: numArgs
 
-	stream nextPutAll: 'send: '.
-	selector printOn: stream.
+        stream nextPutAll: 'send: '.
+        selector printOn: stream.
+        stream nextPutAll: ' numArgs: '.
+        numArgs printOn: stream.
+
+    "Created: / 01-12-2008 / 19:41:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-send: selector toSuperOf: behavior
+send: selector numArgs: numArgs toSuperOf: behavior
 
-	stream nextPutAll: 'send: '.
-	selector printOn: stream.
-	stream nextPutAll: ' toSuperOf: '.
-	behavior printOn: stream.
+        stream nextPutAll: 'send: '.
+        selector printOn: stream.
+        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>"
 !
 
 storeTemp: index