diff --git a/tests/test/tchlp45.pp b/tests/test/tchlp45.pp
index ea422a57bf..6b28b86a38 100644
--- a/tests/test/tchlp45.pp
+++ b/tests/test/tchlp45.pp
@@ -15,5 +15,5 @@ var
   f: TFoo;
 begin
   f := TFoo.Create;
-  f.Test;
+  f.Test1;
 end.