diff --git a/LedgerEntry.hs b/LedgerEntry.hs
index 82bb6becd..575e18371 100644
--- a/LedgerEntry.hs
+++ b/LedgerEntry.hs
@@ -50,7 +50,7 @@ autofillEntry e@(LedgerEntry _ _ _ _ _ ts _) =
 
 showEntry :: LedgerEntry -> String
 showEntry e = 
-    "\n" ++ precedingcomment ++ description ++ unlines (showtxns $ etransactions e)
+    unlines $ [precedingcomment ++ description] ++ (showtxns $ etransactions e) ++ [""]
     where
       precedingcomment = epreceding_comment_lines e
       description = concat [date, status, code, desc] -- , comment]