diff --git a/Cabal/src/Distribution/Simple/Program/Ld.hs b/Cabal/src/Distribution/Simple/Program/Ld.hs
index c7521c0f198..c685823baf8 100644
--- a/Cabal/src/Distribution/Simple/Program/Ld.hs
+++ b/Cabal/src/Distribution/Simple/Program/Ld.hs
@@ -75,7 +75,7 @@ combineObjectFiles verbosity lbi ld target files = do
   case Map.lookup "Supports relocatable output" $ programProperties ld of
     Just "YES" -> pure ()
     Just "NO" ->
-      dieWithException verbosity $ CombineObjectFilesRelocatableUnsupported
+      putStrLn "dieWithException verbosity $ CombineObjectFilesRelocatableUnsupported"
     _other -> pure () -- NOTE: This may still fail if the compiler does not support -r.
   let simpleArgs = ["-r", "-o", target]