diff --git a/plutus-contract/src/Wallet/Emulator/Folds.hs b/plutus-contract/src/Wallet/Emulator/Folds.hs
index 2fe0d695719..f6d22622fa0 100644
--- a/plutus-contract/src/Wallet/Emulator/Folds.hs
+++ b/plutus-contract/src/Wallet/Emulator/Folds.hs
@@ -269,7 +269,7 @@ blockchain =
             TxnValidationFail{} -> (currentBlock, otherBlocks)
         initial = ([], [])
         extract (currentBlock, otherBlocks) =
-            reverse (currentBlock : otherBlocks)
+            (currentBlock : otherBlocks)
     in preMapMaybe (preview (eteEvent . chainEvent))
         $ Fold step initial extract