diff --git a/hledger-lib/Hledger/Data/Account.hs b/hledger-lib/Hledger/Data/Account.hs
index 1f4813b21..c47d43c35 100644
--- a/hledger-lib/Hledger/Data/Account.hs
+++ b/hledger-lib/Hledger/Data/Account.hs
@@ -52,9 +52,10 @@ nullacct = Account
   , aboring = False
   }
 
--- | Derive 1. an account tree and 2. their balances from a list of postings.
+-- | Derive 1. an account tree and 2. their total changes from a list of postings.
 -- (ledger's core feature). The accounts are returned in a list, but
--- retain their tree structure; the first one is the root of the tree.
+--- also reference each other as a tree structure; the first account is
+--- the root of the tree.
 accountsFromPostings :: [Posting] -> [Account]
 accountsFromPostings ps =
   let
diff --git a/hledger-lib/Hledger/Data/Ledger.hs b/hledger-lib/Hledger/Data/Ledger.hs
index 7b275232b..7149dca86 100644
--- a/hledger-lib/Hledger/Data/Ledger.hs
+++ b/hledger-lib/Hledger/Data/Ledger.hs
@@ -39,7 +39,7 @@ nullledger = Ledger {
 
 -- | Filter a journal's transactions with the given query, then derive
 -- a ledger containing the chart of accounts and balances. If the
--- query includes a depth limit, that will affect the this ledger's
+-- query includes a depth limit, that will affect the ledger's
 -- journal but not the ledger's account tree.
 ledgerFromJournal :: Query -> Journal -> Ledger
 ledgerFromJournal q j = nullledger{ljournal=j'', laccounts=as}