diff --git a/hledger/Hledger/Cli/Commands/Add.hs b/hledger/Hledger/Cli/Commands/Add.hs
index 14b571031..9d1f2f6aa 100644
--- a/hledger/Hledger/Cli/Commands/Add.hs
+++ b/hledger/Hledger/Cli/Commands/Add.hs
@@ -499,7 +499,7 @@ balanceTransactionInJournal t j bopts = do
   Journal{jtxns=ts} <- journalBalanceTransactions bopts j'
   -- Extract the balanced & checked transaction.
   maybe
-    (Left "transactionWizard: unexpected empty journal") -- should not happen
+    (Left "balanceTransactionInJournal: unexpected empty journal") -- should not happen
     Right
     (lastMay ts)