--- a/RegressionTests__CompilerTest.st	Mon Jun 02 11:56:53 2003 +0200
+++ b/RegressionTests__CompilerTest.st	Mon Jun 02 12:34:52 2003 +0200
@@ -1148,6 +1148,8 @@
     rcvr := DummyClass new.
     rcvr request:str.
     retVal := mthd valueWithReceiver:rcvr arguments:#().
+    self assert:(retVal == rcvr).
+    self assert:(str contents = 'ab').
 
     "
      self new test_selfIsLost1
@@ -1167,6 +1169,9 @@
 
     self removeMethodForSelfIsLostBug.
 
+    self assert:(retVal == rcvr).
+    self assert:(str contents = 'ab').
+
     "
      self new test_selfIsLost2
     "
@@ -1195,7 +1200,7 @@
     rcvr := DummyClass new.
 
     retVal := mthd valueWithReceiver:rcvr arguments:(Array with:rcvr).
-    self assert:(retVal == 1).
+    self assert:(retVal == rcvr).
 
     "
      self new test_selfIsLost4