--- a/IRClosure.st	Mon Mar 30 14:47:18 2009 +0000
+++ b/IRClosure.st	Mon Mar 30 17:49:01 2009 +0000
@@ -33,7 +33,11 @@
 tempArgKindForLevel:level
     "Superclass IRFunction says that I am responsible to implement this method"
 
-    self shouldImplement
+    ^level isZero 
+        ifTrue: [#BArg]
+        ifFalse:[#OBArg]
+
+    "Modified: / 30-03-2009 / 18:36:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 tempVarKindForLevel:level