diff --git a/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/TxInfo.hs b/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/TxInfo.hs
index 61a53cc7b8a..2a275b9557c 100644
--- a/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/TxInfo.hs
+++ b/libs/cardano-ledger-core/src/Cardano/Ledger/Plutus/TxInfo.hs
@@ -116,7 +116,7 @@ txOutSourceToText = \case
   TxOutFromOutput txIx -> "Output: " <> T.pack (show txIx)
 
 transBoundedRational :: BoundedRational r => r -> PV3.Rational
-transBoundedRational = PV3.fromGHC . unboundRational
+transBoundedRational = PV3.fromHaskellRatio . unboundRational
 
 transDataHash :: DataHash -> PV1.DatumHash
 transDataHash safe = PV1.DatumHash (transSafeHash safe)