diff --git a/quickcheck-io.cabal b/quickcheck-io.cabal
--- a/quickcheck-io.cabal
+++ b/quickcheck-io.cabal
@@ -1,5 +1,5 @@
 name:             quickcheck-io
-version:          0.1.0
+version:          0.1.1
 synopsis:         Use HUnit assertions as QuickCheck properties
 description:      This package provides an orphan instance that allows you to
                   use HUnit assertions as QuickCheck properties.
diff --git a/src/Test/QuickCheck/IO.hs b/src/Test/QuickCheck/IO.hs
--- a/src/Test/QuickCheck/IO.hs
+++ b/src/Test/QuickCheck/IO.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 module Test.QuickCheck.IO where
 
@@ -11,5 +11,9 @@
   exhaustive _ = True
 
 propertyIO :: Assertion -> Property
+#if MIN_VERSION_QuickCheck(2,7,0)
+propertyIO action = ioProperty $ do
+#else
 propertyIO action = morallyDubiousIOProperty $ do
+#endif
   (action >> return succeeded) `E.catch` \(HUnitFailure err) -> return failed {reason = err}