diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs
index f7eb3105d..ce4edadf3 100644
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@@ -181,7 +181,7 @@ testmode = (commandmode ["test"]) {
     }
  }
 
-accountsmode = (commandmode ["balance","accounts"]) {
+accountsmode = (commandmode ["balance","bal","accounts"]) {
   modeHelp = "(or accounts) show matched accounts and their balances"
  ,modeArgs = ([], Just commandargsflag)
  ,modeGroupFlags = Group {