diff --git a/AES.cabal b/AES.cabal
--- a/AES.cabal
+++ b/AES.cabal
@@ -1,7 +1,7 @@
 Name: AES
 Synopsis: Fast AES encryption/decryption for bytestrings
 Description: A zero-copy binding to Brian Gladman's AES implementation, including a copy of that implementation
-Version: 0.2.8
+Version: 0.2.9
 License: BSD3
 License-file: COPYING
 Copyright: Copyright (c) 2009 University of Tromsø
diff --git a/Codec/Crypto/AES/Random.hs b/Codec/Crypto/AES/Random.hs
--- a/Codec/Crypto/AES/Random.hs
+++ b/Codec/Crypto/AES/Random.hs
@@ -1,5 +1,5 @@
 -- | This module provides a cryptographically secure PRNG based on
--- AES, reading the seed from /dev/random
+-- AES, reading the seed from /dev/urandom
 module Codec.Crypto.AES.Random(randBytes,prandBytes,AESGen,newAESGen) where
 
 import Data.Serialize
@@ -13,9 +13,9 @@
 import qualified Data.ByteString as B
 import Data.List
 
--- | Randomness from a system source of nonsense such as /dev/random
+-- | Randomness from a system source of nonsense such as /dev/urandom
 randBytes :: Int -> IO B.ByteString
-randBytes n = withFile "/dev/random" ReadMode $ \h -> B.hGet h n
+randBytes n = withFile "/dev/urandom" ReadMode $ \h -> B.hGet h n
 
 {-# NOINLINE ctx #-}
 ctx :: MVar AESCtx
diff --git a/Control/Monad/UnsafeIO.hs b/Control/Monad/UnsafeIO.hs
--- a/Control/Monad/UnsafeIO.hs
+++ b/Control/Monad/UnsafeIO.hs
@@ -2,7 +2,9 @@
 module Control.Monad.UnsafeIO where
 
 import qualified Control.Monad.ST as S
+import qualified Control.Monad.ST.Unsafe as SU
 import qualified Control.Monad.ST.Lazy as L
+import qualified Control.Monad.ST.Lazy.Unsafe as LU
 import Control.Monad.Trans.Reader
 import Control.Monad.Trans.Writer
 import Control.Monad.Trans
@@ -14,9 +16,9 @@
 instance MonadUnsafeIO IO where
   liftUnsafeIO = id
 instance MonadUnsafeIO (S.ST s) where
-  liftUnsafeIO = S.unsafeIOToST
+  liftUnsafeIO = SU.unsafeIOToST
 instance MonadUnsafeIO (L.ST s) where
-  liftUnsafeIO = L.unsafeIOToST
+  liftUnsafeIO = LU.unsafeIOToST
 instance MonadUnsafeIO m => MonadUnsafeIO (ReaderT r m) where
   liftUnsafeIO = lift . liftUnsafeIO
 instance (Monoid w, MonadUnsafeIO m) => MonadUnsafeIO (WriterT w m) where