diff --git a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs
index 5d60a2a0057..6ab7a71cc98 100644
--- a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs
+++ b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs
@@ -30,8 +30,7 @@ spec =
     let script :: Script era
         script = fromPlutusScript plutusScript
         size = originalBytesSize script
-        (q, r) = maxRefScriptSizePerTx `quotRem` size
-        n = q + signum r
+        n = maxRefScriptSizePerTx `div` size + 1
     txIns <- replicateM n (produceRefScript script)
     let tx :: Tx era
         tx = mkBasicTx (mkBasicTxBody & referenceInputsTxBodyL .~ Set.fromList txIns)