diff --git a/hledger/Hledger/Cli/CompoundBalanceCommand.hs b/hledger/Hledger/Cli/CompoundBalanceCommand.hs
index 9839724fe..3d135bdb5 100644
--- a/hledger/Hledger/Cli/CompoundBalanceCommand.hs
+++ b/hledger/Hledger/Cli/CompoundBalanceCommand.hs
@@ -345,8 +345,8 @@ compoundBalanceReportAsHtml ropts cbr =
           th_ ""
           when (layout_ ropts == LayoutBare) $ th_ "Commodity"
           mconcat $ map (th_ [style_ alignright] . toHtml . reportPeriodName (balanceaccum_ ropts) colspans) colspans
-          th_ $ if row_total_ ropts then "Total"   else ""
-          th_ $ if average_ ropts   then "Average" else ""
+          when (row_total_ ropts) $ th_ "Total"
+          when (average_   ropts) $ th_ "Average"
       ]
 
     -- Make rows for a subreport: its title row, not the headings row,