hunk ./System/Random.hs 343
-                fromDouble ((h-l) / realToFrac int32Range) *
+                fromDouble ((h-l) / realToFrac int32Count) *
hunk ./System/Random.hs 348
-int32Range :: Integer
-int32Range = toInteger (maxBound::Int32) - toInteger (minBound::Int32)
+int32Count :: Integer
+int32Count = toInteger (maxBound::Int32) - toInteger (minBound::Int32) + 1