diff --git a/cleantest.icl b/cleantest.icl
index ba9bb7e1f50da7c9b1d0845ec2fb1874f6dbfb2f..0ccf6b4f5c65d72079837d2a24df7366758d8fec 100644
--- a/cleantest.icl
+++ b/cleantest.icl
@@ -320,11 +320,15 @@ where
 			# io = emit (EndEvent
 				{ name    = r.TestRun.name
 				, event   = event
-				, message = concat
+				, message = join "\n    "
 					[ "Failed to read child messages:"
-					: flatten [["\n    ", outp] \\ outp <- output.lines & Nothing <- results]
+					: [printToString (ellipsis 40 outp) \\ outp <- output.lines & Nothing <- results]
 					]
 				}) io
+				with
+					ellipsis n s
+					| size s <= n = s
+					| otherwise   = s % (0,n-4) +++ "..."
 			= return event r io w
 		# ee = mergeResults $ map fromJust results
 		# io = emit (EndEvent ee) io