* use self.test instead of tc.test

tests/tbs/tb0356.pp

@@ -18,8 +18,8 @@ type
   begin
     { if you use @test, the compiler tries to get the address of the }
     { function result instead of the address of the method (JM)       }
-    result := foreach(c.left,@tc.test);
-    result := foreach(c.right,@tc.test) or result;
+    result := foreach(c.left,@self.test);
+    result := foreach(c.right,@self.test) or result;
   end;