diff --git a/Ledger/Entry.hs b/Ledger/Entry.hs
index 92314a211..cdbbdc126 100644
--- a/Ledger/Entry.hs
+++ b/Ledger/Entry.hs
@@ -13,7 +13,7 @@ import Ledger.RawTransaction
 import Ledger.Amount
 
 
-instance Show Entry where show = showEntryDescription
+instance Show Entry where show = showEntry
 
 {-
 Helpers for the register report. A register entry is displayed as two