diff --git a/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs b/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs
index be02a252470..95d50209ec2 100644
--- a/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs
+++ b/plutus-core/plutus-core/test/Generators/QuickCheck/Utils.hs
@@ -21,7 +21,7 @@ test_multiSplitSound =
             , ("multiSplit0", multiSplit0 0.1)
             ]
         pure . testProperty name $ \(xs :: [Int]) ->
-            withMaxSuccess 100 . forAll (split xs) $ \aSplit ->
+            withMaxSuccess 10000 . forAll (split xs) $ \aSplit ->
                 xs === concat aSplit
 
 -- | Show the distribution of lists generated by a split function for a list of the given length.