diff --git a/Commands/Print.hs b/Commands/Print.hs
index 7f6cf9170..ad86e4f57 100644
--- a/Commands/Print.hs
+++ b/Commands/Print.hs
@@ -17,7 +17,7 @@ print' :: [Opt] -> [String] -> Ledger -> IO ()
 print' opts args l = putStr $ showLedgerTransactions opts args l
 
 showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
-showLedgerTransactions opts args l = concatMap showLedgerTransaction txns
+showLedgerTransactions opts args l = concatMap showLedgerTransactionUnelided txns
     where 
       txns = sortBy (comparing ltdate) $
                ledger_txns $