diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs
index 2b0eb7e6f..dbf2a1c9b 100644
--- a/hledger-web/Handler/Common.hs
+++ b/hledger-web/Handler/Common.hs
@@ -330,7 +330,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
    allaccts = isNothing inacctmatcher
    items = items' -- maybe items' (\m -> filter (matchesAccount m . \(a,_,_,_)->a) items') showacctmatcher
    itemAsHtml :: ViewData -> BalanceReportItem -> HtmlUrl AppRoute
-   itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet|
+   itemAsHtml _ ((acct, adisplay, aindent), abal) = [hamlet|
 <tr.item.#{inacctclass}>
  <td.account.#{depthclass}>
   \#{indent}
diff --git a/hledger/Hledger/Cli/Add.hs b/hledger/Hledger/Cli/Add.hs
index 76f3cf93d..efb450a2a 100644
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@@ -221,7 +221,7 @@ accountWizard EntryState{..} = do
    withCompletion (accountCompleter esJournal def) $
    defaultTo' def $ -- nonEmpty $ 
    maybeRestartTransaction $
-   line $ green $ printf "Account %d%s%s: " pnum endmsg (showDefault def)
+   line $ green $ printf "Account %d%s%s: " pnum (endmsg::String) (showDefault def)
     where
       canfinish = not (null esPostings) && postingsBalanced esPostings
       parseAccountOrDotOrNull _  _ "."       = dbg $ Just "." -- . always signals end of txn