diff --git a/cooked-validators/src/Cooked/Wallet.hs b/cooked-validators/src/Cooked/Wallet.hs
index d31a40814..81b95f244 100644
--- a/cooked-validators/src/Cooked/Wallet.hs
+++ b/cooked-validators/src/Cooked/Wallet.hs
@@ -157,8 +157,8 @@ distributionFromList = InitialDistribution . Map.fromList
 
 -- | Extension of the default initial distribution with additional value in
 -- some wallets.
-initialDistribution' :: [(Wallet, [Pl.Value])] -> InitialDistribution
-initialDistribution' = (def <>) . distributionFromList
+initialDistribution :: [(Wallet, [Pl.Value])] -> InitialDistribution
+initialDistribution = (def <>) . distributionFromList
 
 -- | Bootstraps an initial transaction resulting in a state where wallets
 -- posess UTxOs fitting a given 'InitialDistribution'
diff --git a/examples/tests/AuctionSpec.hs b/examples/tests/AuctionSpec.hs
index 09fcf6c0c..821584352 100644
--- a/examples/tests/AuctionSpec.hs
+++ b/examples/tests/AuctionSpec.hs
@@ -53,7 +53,7 @@ bananasIn v = Value.assetClassValueOf v bananaAssetClass
 
 -- | initial distribution s.t. everyone owns five bananas
 testInit :: InitialDistribution
-testInit = initialDistribution' [(i, [Ada.lovelaceValueOf 2_000_000 <> banana 5]) | i <- knownWallets]
+testInit = initialDistribution [(i, [Ada.lovelaceValueOf 2_000_000 <> banana 5]) | i <- knownWallets]
 
 -- * Successful single-trace runs