diff --git a/Control/Monad/Exception/Base.hs b/Control/Monad/Exception/Base.hs
--- a/Control/Monad/Exception/Base.hs
+++ b/Control/Monad/Exception/Base.hs
@@ -187,8 +187,8 @@
 
 showExceptionWithTrace :: Exception e => [String] -> e -> String
 showExceptionWithTrace [] e = show e
-showExceptionWithTrace trace e = concat ( show e
-                                        : [ " in " ++ show loc | loc <- reverse trace])
+showExceptionWithTrace trace e = unlines ( show e
+                                         : [ " in " ++ show loc | loc <- reverse trace])
 
 -- | UncaughtException models unchecked exceptions
 --
diff --git a/control-monad-exception.cabal b/control-monad-exception.cabal
--- a/control-monad-exception.cabal
+++ b/control-monad-exception.cabal
@@ -1,5 +1,5 @@
 name: control-monad-exception
-version: 0.8.0.3
+version: 0.8.0.4
 Cabal-Version:  >= 1.6
 build-type: Simple
 license: PublicDomain