diff --git a/tests/webtbs/tw11309.pp b/tests/webtbs/tw11309.pp
index fc0231c0dc..104f19a70a 100644
--- a/tests/webtbs/tw11309.pp
+++ b/tests/webtbs/tw11309.pp
@@ -5,8 +5,8 @@
 uses
   SysUtils;
 
-const
-  csMoney = '58.195';
+var
+  csMoney : string;
 
 Function Format_Currency_String1(sMoney : string) : string;
 var
@@ -34,10 +34,12 @@ result := FloatToStrF(aCurrency,ffFixed,19,2);
 end;
 
 begin
+  csMoney:='58'+DecimalSeparator+'195';
   writeln(Format_Currency_String1(csMoney));
   writeln(Format_Currency_String2(csMoney));
-  if Format_Currency_String1(csMoney)<>'58.20' then
+  if Format_Currency_String1(csMoney)<>'58'+DecimalSeparator+'20' then
     halt(1);
-  if Format_Currency_String2(csMoney)<>'58.20' then
+  if Format_Currency_String2(csMoney)<>'58'+DecimalSeparator+'20' then
     halt(2);
+  writeln('ok');
 end.