diff --git a/hledger-web/Hledger/Web/App.hs b/hledger-web/Hledger/Web/App.hs
index 53db0d9c9..6494e381a 100644
--- a/hledger-web/Hledger/Web/App.hs
+++ b/hledger-web/Hledger/Web/App.hs
@@ -572,10 +572,8 @@ getAccountsOnlyR = do
 -- | Render a balance report as HTML.
 balanceReportAsHtml :: [Opt] -> TemplateData -> BalanceReport -> Hamlet AppRoute
 balanceReportAsHtml _ td@TD{here=here,a=a,p=p} (items,total) = [$hamlet|
+^accountsheading^
 %table.balancereport
- %tr
-  %td
-   ^accountsheading^
  $forall items i
   ^itemAsHtml' i^
  %tr.totalrule
@@ -586,14 +584,14 @@ balanceReportAsHtml _ td@TD{here=here,a=a,p=p} (items,total) = [$hamlet|
 |]
  where
    accountsheading = [$hamlet|
-                      accounts
-                      \ $
-                      %span#showmoreaccounts ^showmore^ ^showall^
-                      <br />
-                      <br />
+                      #accountsheading
+                       accounts
+                       \ $
+                       ^showlinks^
                       |]
        where
          filteringaccts = not $ null a
+         showlinks = [$hamlet|%span#showmoreaccounts ^showmore^ ^showall^|]
          showmore = case (filteringaccts, items) of
                       -- cunning parent account logic
                       (True, ((acct, _, _, _):_)) ->
diff --git a/hledger-web/data/static/style.css b/hledger-web/data/static/style.css
index 6c6ef9442..97b748ae8 100644
--- a/hledger-web/data/static/style.css
+++ b/hledger-web/data/static/style.css
@@ -102,7 +102,8 @@ table.registerreport        { border-spacing:0; }
 .registerreport td          { padding-bottom:0.2em; }
 .registerreport .date       { white-space:nowrap; }
 .firstposting td            { }
-#accountsheading            { font-weight:bold; }
+#accountsheading            { font-weight:bold; white-space:nowrap; margin-bottom:1em; }
+#showmoreaccounts           { }
 
 
 #addform input.textinput, #addform .dhx_combo_input, .dhx_combo_list   { padding:4px; }