--- a/RegressionTests__CompilerTest.st	Sun Oct 01 15:54:57 2000 +0200
+++ b/RegressionTests__CompilerTest.st	Sun Oct 01 16:20:04 2000 +0200
@@ -733,6 +733,40 @@
     "
 ! !
 
+!CompilerTest methodsFor:'tests - sends'!
+
+m1
+    ^ 123
+!
+
+m2
+    ^ self m1
+!
+
+m3
+    ^ self m2
+!
+
+m4
+    ^ self m3
+!
+
+m5
+    ^ self m4
+!
+
+m6
+    ^ self m5
+!
+
+m7
+    ^ self m6
+
+    "
+     self new m7
+    "
+! !
+
 !CompilerTest methodsFor:'tests context setup'!
 
 retArgWithFrameA:arg
@@ -1042,6 +1076,33 @@
 
 !
 
+testContextD
+    self testContextB
+
+    "
+     self new testContextD                
+    "
+
+!
+
+testContextE
+    ^ thisContext sender
+
+    "
+     self new testContextE               
+    "
+
+!
+
+testContextF
+    ^ self testContextE
+
+    "
+     self new testContextF              
+    "
+
+!
+
 testSend0
     ^ 9999
 !