diff --git a/rtl/objpas/sysutils/syshelph.inc b/rtl/objpas/sysutils/syshelph.inc
index 9f1fa2bd89..553cc98ff5 100644
--- a/rtl/objpas/sysutils/syshelph.inc
+++ b/rtl/objpas/sysutils/syshelph.inc
@@ -786,6 +786,11 @@ Type
     property Exp: QWord read GetE write SetE;
     property Frac: QWord read GetF write SetF;
   end;
+
+{$IFNDEF VER3_2}
+  TRealHelper = Type Helper(TDoubleHelper) for Real
+  end;
+{$ENDIF}
 {$ENDIF FPC_HAS_TYPE_DOUBLE}
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
diff --git a/tests/webtbs/tw40305.pp b/tests/webtbs/tw40305.pp
new file mode 100644
index 0000000000..3cbfcf9c81
--- /dev/null
+++ b/tests/webtbs/tw40305.pp
@@ -0,0 +1,17 @@
+program tw40305;
+
+{$mode objfpc}
+
+uses
+  SysUtils;
+
+var
+  r: Real;
+  s: String;
+begin
+  r := 2.42;
+  FormatSettings.DecimalSeparator:='.';
+  s := r.ToString;
+  if s <> '2.42' then
+    Halt(1);
+end.