diff --git a/tests/test/units/system/tparam.pp b/tests/test/units/system/tparam.pp
index d126253cc1..5fc2e3b824 100644
--- a/tests/test/units/system/tparam.pp
+++ b/tests/test/units/system/tparam.pp
@@ -1,4 +1,3 @@
-{ %INTERACTIVE }
 program tparam;
 
 var
@@ -8,4 +7,8 @@ Begin
    Begin
      WriteLn(paramStr(i));
    End;
+  for i:=-127 to -1 do
+    if paramStr(i)<>'' then
+      halt(1);
+  writeln('ok')
 end.