diff --git a/Test/QuickCheck.hs b/Test/QuickCheck.hs
index 1f8b3b9..27138ab 100644
--- a/Test/QuickCheck.hs
+++ b/Test/QuickCheck.hs
@@ -75 +75,2 @@ import Data.List( group, sort, intersperse )
-import Control.Monad( liftM2, liftM3, liftM4 )
+import Control.Applicative
+import Control.Monad( liftM2, liftM3, liftM4, ap )
@@ -115,0 +117,4 @@ instance Functor Gen where
+instance Applicative Gen where
+    pure  = return
+    (<*>) = ap  -- defined in Control.Monad
+
