diff --git a/lib/Echidna/UI/Report.hs b/lib/Echidna/UI/Report.hs
index db17e6fd..7c4b6420 100644
--- a/lib/Echidna/UI/Report.hs
+++ b/lib/Echidna/UI/Report.hs
@@ -108,7 +108,7 @@ ppFail b es xs = do
          <> ppEvents es
 
 ppEvents :: Events -> String
-ppEvents es = if null es then "" else "Event sequence: " <> T.unpack (T.intercalate ", " es)
+ppEvents es = if null es then "" else unlines $ "Event sequence:" : (T.unpack <$> es)
 
 -- | Pretty-print the status of a test.