diff --git a/genvalidity-hspec.cabal b/genvalidity-hspec.cabal
--- a/genvalidity-hspec.cabal
+++ b/genvalidity-hspec.cabal
@@ -1,11 +1,13 @@
--- This file has been generated from package.yaml by hpack version 0.28.2.
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.31.1.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 33d59844fe6f212746a399da920a642934471dbadfb6476a646bc001ffac9a85
+-- hash: 8fbfbbf0a57f41dc695ffc641841eb79c999ac4f6a0c4c86e81f50422b34e23f
 
 name:           genvalidity-hspec
-version:        0.6.2.1
+version:        0.6.2.2
 synopsis:       Standard spec's for GenValidity instances
 description:    Note: There are companion packages for this library:
                 .
@@ -26,7 +28,6 @@
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple
-cabal-version:  >= 1.10
 
 source-repository head
   type: git
diff --git a/src/Test/Validity/Monad.hs b/src/Test/Validity/Monad.hs
--- a/src/Test/Validity/Monad.hs
+++ b/src/Test/Validity/Monad.hs
@@ -116,15 +116,11 @@
         (unwords [nameOf @f, "of ints"])
         ((+) <$> genUnchecked)
         "increments"
-        (do a <- genUnchecked
-            let qcgen = mkQCGen a
-            let func = unGen gen qcgen
-            pure $ \b -> func b)
+        (do s <- abs <$> genUnchecked
+            pure $ \b -> unGen gen (mkQCGen b) s)
         "perturbations using the int"
-        (do a <- genUnchecked
-            let qcgen = mkQCGen a
-            let func = unGen gen qcgen
-            pure $ \b -> func (2 * b))
+        (do s <- abs <$> genUnchecked
+            pure $ \b -> unGen gen (mkQCGen $ 2 * b) s)
         "perturbations using the double the int"
         (pure <$> ((+) <$> genUnchecked))
         (unwords [nameOf @f, "of additions"])
diff --git a/src/Test/Validity/Utils.hs b/src/Test/Validity/Utils.hs
--- a/src/Test/Validity/Utils.hs
+++ b/src/Test/Validity/Utils.hs
@@ -80,6 +80,9 @@
             Item
                 { itemRequirement = s
                 , itemLocation = Nothing
+#if MIN_VERSION_hspec_core(2,6,0)
+                , itemIsFocused = False
+#endif
 #if MIN_VERSION_hspec_core(2,5,0)
                 , itemIsParallelizable = Nothing
 #else