diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
--- a/src/Test/HUnit/Tools.hs
+++ b/src/Test/HUnit/Tools.hs
@@ -207,7 +207,8 @@
     runATest st f =
       do
         let size = computeSize st (numSuccessTests st) (numDiscardedTests st)
-        (res, ts) <- run (unProp (f rnd1 size))
+        MkRose mres ts <- protectRose (unProp (f rnd1 size))
+        res <- mres
         callbackPostTest st res
      
         case ok res of
diff --git a/testpack.cabal b/testpack.cabal
--- a/testpack.cabal
+++ b/testpack.cabal
@@ -1,5 +1,5 @@
 Name: testpack
-Version: 2.0.0
+Version: 2.0.1
 License: LGPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen
@@ -39,7 +39,7 @@
 
  Build-Depends: base >= 3 && < 5,
                haskell98, mtl, HUnit, 
-               QuickCheck >= 2.0
+               QuickCheck >= 2.1.0.3
  If flag(splitBase)
    Build-Depends: base >= 3 && < 5, containers, random
  Else