diff --git a/tests/webtbs/tw2442.pp b/tests/webtbs/tw2442.pp
index bbf47a6699..b162415979 100644
--- a/tests/webtbs/tw2442.pp
+++ b/tests/webtbs/tw2442.pp
@@ -26,7 +26,7 @@ PROCEDURE anObject.A( c : cardinal );
 
         PROCEDURE B;
         BEGIN
-                WriteLn('B called (cardinal)')
+                WriteLn('B called (cardinal)');
         writeln('error!');
         halt(1);
         END