diff --git a/marlowe-object/src/Language/Marlowe/Object/Types.hs b/marlowe-object/src/Language/Marlowe/Object/Types.hs
index 933f02f409..53312dfc4f 100644
--- a/marlowe-object/src/Language/Marlowe/Object/Types.hs
+++ b/marlowe-object/src/Language/Marlowe/Object/Types.hs
@@ -604,7 +604,7 @@ instance FromJSON ShelleyAddress where
 fromCoreAddress :: Core.Network -> PV2.Address -> ShelleyAddress
 fromCoreAddress network addr =
   ShelleyAddress $
-    fromRight (error "fromRight: Left") $
+    fromRight (error $ "core address deserialization failed: " ++ show network ++ " / " ++ show addr) $
       deserialiseFromBech32 (AsAddress AsShelleyAddr) $
         serialiseAddressBech32 network addr