RegionCentroid issue

This example shows an unexpected result from RegionCentroid:

object = Polygon[{{20000, 200000}, {20000.1, 200000.2}, {20000.3, 200000.2}, {20000., 200000.}}]; point = Point[RegionCentroid[object]]; Show[Graphics[{object, Red, PointSize[.2], point}]] 

point should be inside object

The RegionCentroid result should be inside the convex region.

If object is translated to the origin the result is correct. Any idea for a general solution or workaround for arbitrary regions?