diff --git a/tests/QC.hs b/tests/QC.hs
index 287dcb51318333ae570a550db91ef77970816359..79eb85626920e3d0fe047c20dde1584ce69246a6 100644
--- a/tests/QC.hs
+++ b/tests/QC.hs
@@ -61,9 +61,9 @@ prop_invariant = invariant_lbs . encode
 -- doesn't do fair testing of lazy put/get.
 -- tons of untested cases
 
-lazyTrip :: (Binary a, Eq a) => a -> Property
-lazyTrip a = forAll positiveList $ \xs ->
-    a == (runGet lazyGet . refragment xs . runPut . lazyPut $ a)
+-- lazyTrip :: (Binary a, Eq a) => a -> Property
+-- lazyTrip a = forAll positiveList $ \xs ->
+--     a == (runGet lazyGet . refragment xs . runPut . lazyPut $ a)
 
 -- refragment a lazy bytestring's chunks
 refragment :: [Int] -> L.ByteString -> L.ByteString
@@ -159,12 +159,12 @@ tests =
                 p (test :: T (Maybe Word8, Bool, [Int], Either Bool Word8) ))
 
         ,("(Int, ByteString)",        p (test     :: T (Int, B.ByteString)   ))
-        ,("Lazy (Int, ByteString)",   p (lazyTrip :: T (Int, B.ByteString)   ))
+--      ,("Lazy (Int, ByteString)",   p (lazyTrip :: T (Int, B.ByteString)   ))
         ,("[(Int, ByteString)]",      p (test     :: T [(Int, B.ByteString)] ))
-        ,("Lazy [(Int, ByteString)]", p (lazyTrip :: T [(Int, B.ByteString)] ))
+--      ,("Lazy [(Int, ByteString)]", p (lazyTrip :: T [(Int, B.ByteString)] ))
 
 
-        ,("Lazy IntMap",       p (lazyTrip  :: T IntSet.IntSet          ))
+--      ,("Lazy IntMap",       p (lazyTrip  :: T IntSet.IntSet          ))
         ,("IntSet",            p (test      :: T IntSet.IntSet          ))
         ,("IntMap ByteString", p (test      :: T (IntMap.IntMap B.ByteString) ))