diff --git a/Language/Haskell/GhcMod/ErrMsg.hs b/Language/Haskell/GhcMod/ErrMsg.hs
index 548ca22..bdb8874 100644
--- a/Language/Haskell/GhcMod/ErrMsg.hs
+++ b/Language/Haskell/GhcMod/ErrMsg.hs
@@ -76,7 +76,7 @@ ppErrMsg dflag ls err = ppMsg spn SevError dflag ls msg ++ ext
      ext = showMsg dflag ls (errMsgExtraInfo err)
 
 ppMsg :: SrcSpan -> Severity-> DynFlags -> LineSeparator -> SDoc -> String
-ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts ++ lsep
+ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts -- ++ lsep
   where
     cts  = showMsg dflag ls msg
     defaultPrefix
@@ -91,12 +91,6 @@ ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts ++ lsep
 ----------------------------------------------------------------
 
 showMsg :: DynFlags -> LineSeparator -> SDoc -> String
-showMsg dflag (LineSeparator [s]) sdoc = replaceNull $ showUnqualifiedPage dflag sdoc
-  where
-    replaceNull :: String -> String
-    replaceNull []        = []
-    replaceNull ('\n':xs) = s : replaceNull xs
-    replaceNull (x:xs)    = x : replaceNull xs
 showMsg dflag (LineSeparator lsep) sdoc = replaceNull $ showUnqualifiedPage dflag sdoc
   where
     replaceNull []        = []
diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index 81a2650..4e83721 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -133,7 +133,7 @@
        nil
        (lambda ()
 	 (insert (overlay-get (car ovls) 'ghc-file) "\n\n")
-	 (mapc (lambda (x) (insert x "\n")) errs))))))
+	 (mapc (lambda (x) (insert x "\n\n")) errs))))))
 
 (defun ghc-check-overlay-at (p)
   (let ((ovls (overlays-at p)))