diff --git a/tests/tbs/tb0226.pp b/tests/tbs/tb0226.pp
index 8afbd603e6..c0b1852a30 100644
--- a/tests/tbs/tb0226.pp
+++ b/tests/tbs/tb0226.pp
@@ -16,7 +16,7 @@ type
 
 constructor a.create;
 begin
-    c := @e;
+    c := e;
 end;
 
 destructor a.destroy;
@@ -26,13 +26,13 @@ end;
 procedure a.e;
 begin
     Writeln('E');
-    c := @f;
+    c := f;
 end;
 
 procedure a.f;
 begin
     Writeln('F');
-    c := @e;
+    c := e;
 end;
 
 var