diff --git a/tests/webtbs/tw14418.pp b/tests/webtbs/tw14418.pp
index 77e30362e9..1e107f6a3b 100644
--- a/tests/webtbs/tw14418.pp
+++ b/tests/webtbs/tw14418.pp
@@ -61,6 +61,7 @@ end;
 procedure TObj.M1;
 begin
   Writeln('TObj.M1 called');
+  halt(1);
 end;
 
 {