diff --git a/SimpleAES.cabal b/SimpleAES.cabal
--- a/SimpleAES.cabal
+++ b/SimpleAES.cabal
@@ -1,24 +1,28 @@
-Name: SimpleAES
-Synopsis: Fast AES encryption/decryption for bytestrings
-Description: A simplified binding to Brian Gladman's AES implementation, including a copy of that implementation
-Version: 0.3
-License: BSD3
-License-file: COPYING
-Copyright: Copyright (c) 2009 University of Tromsø, 2009 David Himmelstrup
-Author: Svein Ove Aas <svein.ove@aas.no>, David Himmelstrup <lemmih@gmail.com>
-Maintainer: David Himmelstrup <lemmih@gmail.com>
-Stability: provisional
-Category: Cryptography
-Tested-With: GHC == 6.10.4
-Cabal-Version: >= 1.6
-Build-Type: Simple
+Name:                SimpleAES
+Synopsis:            Fast AES encryption/decryption for bytestrings
+Description:
+  A simplified binding to Brian Gladman's AES implementation,
+  including a copy of that implementation
+Version:             0.4
+License:             BSD3
+License-file:        COPYING
+Copyright:           Copyright (c) 2009 University of Tromsø,
+                     2009 David Himmelstrup
+Author:              Svein Ove Aas <svein.ove@aas.no>,
+                     David Himmelstrup <lemmih@gmail.com>
+Maintainer:          David Himmelstrup <lemmih@gmail.com>
+Stability:           provisional
+Category:            Cryptography
+Tested-With:         GHC == 6.10.4, GHC == 6.12.2
+Cabal-Version:       >= 1.6
+Build-Type:          Simple
 Extra-source-files: cbits/aes.h, cbits/aesopt.h, cbits/aestab.h,
                     cbits/brg_endian.h, cbits/brg_types.h, cbits/aes.txt,
                     cbits/aes_via_ace.h, cbits/ctr_inc.h
 
 Library
   Build-Depends:
-        base >= 4 && < 5 , bytestring, mwc-random >= 0.4.1.1, binary
+        base >= 4 && < 5 , bytestring, mwc-random >= 0.5.0.0, binary
   Extensions:
         ForeignFunctionInterface,
         ViewPatterns,
diff --git a/src/Codec/Crypto/SimpleAES.hs b/src/Codec/Crypto/SimpleAES.hs
--- a/src/Codec/Crypto/SimpleAES.hs
+++ b/src/Codec/Crypto/SimpleAES.hs
@@ -19,7 +19,7 @@
 import System.Random.MWC
 
 newSeed :: IO Seed
-newSeed = withSystemRandom save
+newSeed = withSystemRandom (\x -> save x :: IO Seed)
 
 type Key = B.ByteString
 type IV = B.ByteString