diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Changes in 0.13.2.2
+
+  * Fixed crash during gen. initialization on Windows when stderr
+    is not available (#36).
+
 Changes in 0.13.2.0
 
   * Generators for beta, Bernoully, Dirichlet and categorical distributions
diff --git a/System/Random/MWC.hs b/System/Random/MWC.hs
--- a/System/Random/MWC.hs
+++ b/System/Random/MWC.hs
@@ -432,7 +432,7 @@
 withSystemRandom act = do
   seed <- acquireSeedSystem `E.catch` \(_::E.IOException) -> do
     seen <- atomicModifyIORef warned ((,) True)
-    unless seen $ do
+    unless seen $ E.handle (\(_::E.IOException) -> return ()) $ do
       hPutStrLn stderr ("Warning: Couldn't open /dev/urandom")
       hPutStrLn stderr ("Warning: using system clock for seed instead " ++
                         "(quality will be lower)")
diff --git a/benchmarks/tsts.hs b/benchmarks/tsts.hs
deleted file mode 100644
--- a/benchmarks/tsts.hs
+++ /dev/null
@@ -1,65 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-import Control.Monad
-import System.Random.MWC
-import System.Random.MWC.Distributions
-
-main = do
-  withSystemRandom $ \g -> replicateM_ (300*1000) $ do
-    --
-    !n <- normal 0 1  g
-    !n <- normal 0 2  g
-    !n <- normal 3 3  g
-    !n <- normal 2 4  g
-    !n <- normal 2 5  g
-    !n <- normal 1 6  g
-    !n <- normal 3 7  g
-    !n <- normal 3 8  g
-    !n <- normal 3 9  g
-    !n <- normal 3 10 g
-    --
-    !n <- normal 0 1  g
-    !n <- normal 0 2  g
-    !n <- normal 3 3  g
-    !n <- normal 2 4  g
-    !n <- normal 2 5  g
-    !n <- normal 1 6  g
-    !n <- normal 3 7  g
-    !n <- normal 3 8  g
-    !n <- normal 3 9  g
-    !n <- normal 3 10 g
-    --
-    !n <- normal 0 1  g
-    !n <- normal 0 2  g
-    !n <- normal 3 3  g
-    !n <- normal 2 4  g
-    !n <- normal 2 5  g
-    !n <- normal 1 6  g
-    !n <- normal 3 7  g
-    !n <- normal 3 8  g
-    !n <- normal 3 9  g
-    !n <- normal 3 10 g
-    --
-    !n <- normal 0 1  g
-    !n <- normal 0 2  g
-    !n <- normal 3 3  g
-    !n <- normal 2 4  g
-    !n <- normal 2 5  g
-    !n <- normal 1 6  g
-    !n <- normal 3 7  g
-    !n <- normal 3 8  g
-    !n <- normal 3 9  g
-    !n <- normal 3 10 g
-    --
-    !n <- normal 0 1  g
-    !n <- normal 0 2  g
-    !n <- normal 3 3  g
-    !n <- normal 2 4  g
-    !n <- normal 2 5  g
-    !n <- normal 1 6  g
-    !n <- normal 3 7  g
-    !n <- normal 3 8  g
-    !n <- normal 3 9  g
-    !n <- normal 3 10 g
-    --
-    return () :: IO ()
-    
diff --git a/mwc-random.cabal b/mwc-random.cabal
--- a/mwc-random.cabal
+++ b/mwc-random.cabal
@@ -1,5 +1,5 @@
 name:           mwc-random
-version:        0.13.2.0
+version:        0.13.2.2
 synopsis:       Fast, high quality pseudo random number generation
 description:
   This package contains code for generating high quality random