diff --git a/System/Random.hs b/System/Random.hs
index b6473b928..29af65181 100644
--- a/System/Random.hs
+++ b/System/Random.hs
@@ -534,7 +534,7 @@ runPrimGenST_ g action = fst $ runPrimGenST g action
 -- | Functions like 'runPrimGenIO' are necessary for example if you
 -- wish to write a function like
 --
--- >>> let ioGen gen = withBinaryFile "foo.txt" WriteMode $ \h -> ((randomM gen) :: IO Word32) >>= (hPutStr h . show)
+-- >>> let ioGen gen = withBinaryFile "foo.txt" WriteMode $ \h -> ((uniform gen) :: IO Word32) >>= (hPutStr h . show)
 --
 -- and then run it
 --