diff --git a/hledger-lib/Hledger/Data/Account.hs b/hledger-lib/Hledger/Data/Account.hs
index 69898d19f80..7f89790cec4 100644
--- a/hledger-lib/Hledger/Data/Account.hs
+++ b/hledger-lib/Hledger/Data/Account.hs
@@ -75,6 +75,8 @@ instance Show a => Show (Account a) where
       . showString (if aboring acct then "y" else "n")
       . showString ", adata:"
       . shows (adata acct)
+      . showString ", asubs:"
+      . shows (asubs acct)
       . showChar ')'
 
 instance Eq (Account a) where