diff --git a/RTL/System.pas b/RTL/System.pas
index 4f740ee..4b322a0 100644
--- a/RTL/System.pas
+++ b/RTL/System.pas
@@ -281,7 +281,7 @@ end;
 
 function _RandExt: Extended;
 begin
-  Result := 1 / RandInt(1, $FFFFFFFE);
+  Result := 1 / RandInt(2, $FFFFFFFF);
 end;
 
 procedure Randomize;