diff --git a/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs b/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs
index 86ed5c14ba..6193cc22ed 100644
--- a/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs
+++ b/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs
@@ -534,6 +534,11 @@ interpret ro@RuntimeCreateContract{..} = do
         res <- liftIO $ flip runMarloweT connector do
           Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx
         logStoreLabeledMsg ro $ "Submitted" <> show contractId
+
+        case C.cardanoEra @era of
+          C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id
+          _ -> pure ()
+
         case res of
           Right _ -> do
             logStoreLabeledMsg ro $ "Contract created: " <> show tx
@@ -669,6 +674,10 @@ interpret ro@RuntimeApplyInputs{..} = do
           Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx
         logStoreLabeledMsg ro "Submitted and confirmed."
 
+        case C.cardanoEra @era of
+          C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id
+          _ -> pure ()
+
         case res of
           Right bl -> do
             logStoreLabeledMsg ro $ "Inputs applied: " <> show bl