diff --git a/tests/webtbs/tw2557.pp b/tests/webtbs/tw2557.pp
index 9a13e1a70a..112fe3c2ee 100644
--- a/tests/webtbs/tw2557.pp
+++ b/tests/webtbs/tw2557.pp
@@ -3,6 +3,8 @@
 { e-mail: netsurfer@au.ru }
 Unit tw2557;
 
+{$mode objfpc}
+
 Interface
 
 Type tVMThread=Class;