diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Mock/Forge.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Mock/Forge.hs
index 3ac0fdff1ab..0174420b255 100644
--- a/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Mock/Forge.hs
+++ b/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/Mock/Forge.hs
@@ -33,7 +33,7 @@ forgeSimple :: forall p c m ext.
             => NodeConfig p
             -> SlotNo                              -- ^ Current slot
             -> BlockNo                             -- ^ Current block number
-            -> ExtLedgerState (SimpleBlock c ext)  -- ^ Previous hash
+            -> ExtLedgerState (SimpleBlock c ext)  -- ^ Current ledger
             -> [GenTx (SimpleBlock c ext)]         -- ^ Txs to add in the block
             -> IsLeader p                          -- ^ Proof we are slot leader
             -> m (SimpleBlock c ext)