--- a/IRBuilderTest.st	Mon Mar 30 14:47:18 2009 +0000
+++ b/IRBuilderTest.st	Mon Mar 30 17:49:01 2009 +0000
@@ -149,6 +149,13 @@
     "
 
     "Created: / 28-03-2009 / 20:21:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+mock8
+
+    ^([:arg| arg ] value: 22)
+
+    "Created: / 30-03-2009 / 19:21:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !IRBuilderTest methodsFor:'testing'!
@@ -749,11 +756,16 @@
                 send:#value:;
                 returnTop;
                 ir.
+    "
+        irBuilder ir
+    "
+
     aCompiledMethod := irBuilder compiledCode.
     self assert:(aCompiledMethod isKindOf:CompiledMethod).
-    self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = 22).
+    self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = 22).
 
     "Created: / 30-03-2009 / 14:26:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 30-03-2009 / 19:16:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !IRBuilderTest class methodsFor:'documentation'!