diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs
index 137fe9b7c..be8afca94 100644
--- a/Ledger/Ledger.hs
+++ b/Ledger/Ledger.hs
@@ -100,7 +100,7 @@ filterLedgerTransactions (acctpat,descpat) (RawLedger ms ps es f) =
 
 -- | List a 'Ledger' 's account names.
 accountnames :: Ledger -> [AccountName]
-accountnames l = flatten $ accountnametree l
+accountnames l = drop 1 $ flatten $ accountnametree l
 
 -- | Get the named account from a ledger.
 ledgerAccount :: Ledger -> AccountName -> Account