diff --git a/tests/webtbs/tw3492.pp b/tests/webtbs/tw3492.pp
index 7b9a330707..a56788143f 100644
--- a/tests/webtbs/tw3492.pp
+++ b/tests/webtbs/tw3492.pp
@@ -1,8 +1,17 @@
 {$mode fpc}
 
-{ Resourcestrings are pre-initialized }
 resourcestring
   s = 'OK';
+
+var t:ansistring;
+
 begin
-  writeln(s);
+  t:=s;
+  if t<>'OK' then
+    begin
+      writeln('Resourcestring error!');
+      halt(1);
+    end
+  else
+    writeln(s);
 end.