diff --git a/plutus-contract/src/Plutus/Contract/Effects.hs b/plutus-contract/src/Plutus/Contract/Effects.hs
index 6a1ee78953..7e7b3b39ac 100644
--- a/plutus-contract/src/Plutus/Contract/Effects.hs
+++ b/plutus-contract/src/Plutus/Contract/Effects.hs
@@ -352,7 +352,7 @@ data WriteBalancedTxResponse =
 instance Pretty WriteBalancedTxResponse where
   pretty = \case
     WriteBalancedTxFailed e   -> "WriteBalancedTxFailed:" <+> pretty e
-    WriteBalancedTxSuccess tx -> "WriteBalancedTxFailed:" <+> pretty (getCardanoTxId tx)
+    WriteBalancedTxSuccess tx -> "WriteBalancedTxSuccess:" <+> pretty (getCardanoTxId tx)
 
 writeBalancedTxResponse :: Iso' WriteBalancedTxResponse (Either WalletAPIError CardanoTx)
 writeBalancedTxResponse = iso f g where