diff --git a/Ledger.hs b/Ledger.hs
index 8b0da7c83..9b99b8b2e 100644
--- a/Ledger.hs
+++ b/Ledger.hs
@@ -16,10 +16,10 @@ data Ledger = Ledger {
                      } deriving (Eq)
 
 instance Show Ledger where
-    show l = printf "Ledger with %d normal, %d modifier, %d periodic entries"
-             (length $ entries l)
-             (length $ modifier_entries l)
-             (length $ periodic_entries l)
+    show l = printf "Ledger with %d entries"
+             ((length $ entries l) +
+              (length $ modifier_entries l) +
+              (length $ periodic_entries l))
 
 ledgerTransactions :: Ledger -> [EntryTransaction]
 ledgerTransactions l = entryTransactionsFrom $ entries l