diff --git a/hedgehog-extras.cabal b/hedgehog-extras.cabal
--- a/hedgehog-extras.cabal
+++ b/hedgehog-extras.cabal
@@ -1,7 +1,7 @@
 cabal-version: 2.4
 
 name:                   hedgehog-extras
-version:                0.6.0.1
+version:                0.6.0.2
 synopsis:               Supplemental library for hedgehog
 description:            Supplemental library for hedgehog.
 category:               Test
diff --git a/src/Hedgehog/Extras/Test/Base.hs b/src/Hedgehog/Extras/Test/Base.hs
--- a/src/Hedgehog/Extras/Test/Base.hs
+++ b/src/Hedgehog/Extras/Test/Base.hs
@@ -307,7 +307,7 @@
 
 -- | Fail when the computed result is Nothing.
 nothingFailM :: (MonadTest m, HasCallStack) => m (Maybe a) -> m a
-nothingFailM f = f >>= nothingFail
+nothingFailM f = GHC.withFrozenCallStack $ f >>= nothingFail
 
 -- | Fail when the result is Left.
 leftFail :: (MonadTest m, Show e, HasCallStack) => Either e a -> m a
@@ -317,7 +317,7 @@
 
 -- | Fail when the computed result is Left.
 leftFailM :: (MonadTest m, Show e, HasCallStack) => m (Either e a) -> m a
-leftFailM f = f >>= leftFail
+leftFailM f = GHC.withFrozenCallStack $ f >>= leftFail
 
 maybeAt :: Int -> [a] -> Maybe a
 maybeAt n xs
@@ -361,7 +361,7 @@
 
 -- | Fail when the computed result is Error.
 jsonErrorFailM :: (MonadTest m, HasCallStack) => m (Result a) -> m a
-jsonErrorFailM f = f >>= jsonErrorFail
+jsonErrorFailM f = GHC.withFrozenCallStack $ f >>= jsonErrorFail
 
 -- | Run the operation 'f' once a second until it returns 'True' or the deadline expires.
 --