diff --git a/hledger/Hledger/Cli/Print.hs b/hledger/Hledger/Cli/Print.hs
index d258bdc94..1a9a02092 100644
--- a/hledger/Hledger/Cli/Print.hs
+++ b/hledger/Hledger/Cli/Print.hs
@@ -60,11 +60,8 @@ printEntries opts@CliOpts{reportopts_=ropts} j = do
         _     -> (entriesReportAsText,                      ropts)
   writeOutput opts $ render $ entriesReport ropts' q j
 
--- | Render journal entries (transactions) as a string, which should be valid journal format.
 entriesReportAsText :: EntriesReport -> String
-entriesReportAsText items = concatMap showtxn items
-  where
-    showtxn = showTransaction
+entriesReportAsText items = concatMap showTransactionUnelided items
 
 -- XXX
 -- tests_showTransactions = [