diff --git a/WebServer.pas b/WebServer.pas
index 50f45da..a55bd4a 100644
--- a/WebServer.pas
+++ b/WebServer.pas
@@ -1168,7 +1168,11 @@ function TWebServer.BuildStateJson: string;
 const
   MODE_N: array[0..7] of string =
     ('LSB','USB','DSB','CWL','CWU','FM','AM','SAM');
+var
+  FS: TFormatSettings;
 begin
+  FS := DefaultFormatSettings;
+  FS.DecimalSeparator := '.';
   FStateLock.Enter;
   try
     Result := Format(
@@ -1204,7 +1208,7 @@ begin
        FAttnIdx,
        BoolToStr(FTuning,  'true', 'false'),
        BoolToStr(FDuplex, 'true', 'false')
-      ]);
+      ], FS);
   finally
     FStateLock.Leave;
   end;