diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs
index 1ab6c3c42..8d47d8a48 100644
--- a/hledger-web/Hledger/Web/Handlers.hs
+++ b/hledger-web/Hledger/Web/Handlers.hs
@@ -258,7 +258,7 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
        inacctclass = case inacctmatcher of
                        Just m -> if m `matchesAccount` acct then "inacct" else "notinacct"
                        Nothing -> "" :: String
-       indent = preEscapedString $ concat $ replicate (2 * aindent) " "
+       indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) " "
        acctquery = (RegisterR, [("q", pack $ accountQuery acct)])
        acctonlyquery = (RegisterR, [("q", pack $ accountOnlyQuery acct)])