diff --git a/hydra-node/src/Hydra/Ledger/Cardano.hs b/hydra-node/src/Hydra/Ledger/Cardano.hs
index 72adc06d5bc..c69192f77f8 100644
--- a/hydra-node/src/Hydra/Ledger/Cardano.hs
+++ b/hydra-node/src/Hydra/Ledger/Cardano.hs
@@ -15,9 +15,6 @@ import Hydra.Ledger.Cardano.Builder
 import Cardano.Api.UTxO (fromPairs, pairs)
 import Cardano.Api.UTxO qualified as UTxO
 import Cardano.Crypto.DSIGN qualified as CC
-import Cardano.Ledger.Api (updateTxBodyL)
-import Cardano.Ledger.Babbage.Tx qualified as Ledger
-import Cardano.Ledger.BaseTypes (StrictMaybe (..))
 import Cardano.Ledger.BaseTypes qualified as Ledger
 import Cardano.Ledger.Binary (decCBOR, decodeFullAnnotator, serialize')
 import Cardano.Ledger.Credential qualified as Ledger
@@ -28,7 +25,6 @@ import Cardano.Ledger.Shelley.Rules qualified as Ledger
 import Cardano.Ledger.Shelley.UTxO qualified as Ledger
 import Codec.CBOR.Decoding qualified as CBOR
 import Codec.CBOR.Encoding qualified as CBOR
-import Control.Lens (set)
 import Control.Monad (foldM)
 import Data.Aeson (object, (.:), (.:?), (.=))
 import Data.Aeson qualified as Aeson
@@ -156,11 +152,7 @@ instance FromJSON Tx where
 
 instance Arbitrary Tx where
   -- TODO: shrinker!
-  arbitrary = fromLedgerTx . withoutProtocolUpdates <$> arbitrary
-   where
-    withoutProtocolUpdates tx@(Ledger.AlonzoTx body _ _ _) =
-      let body' = body & set updateTxBodyL SNothing
-       in tx{Ledger.body = body'}
+  arbitrary = fromLedgerTx <$> arbitrary
 
 -- | Create a zero-fee, payment cardano transaction.
 mkSimpleTx ::