diff --git a/hledger/Hledger/Cli/Commands/Accounts.hs b/hledger/Hledger/Cli/Commands/Accounts.hs
index 15128962f..4b4cf8535 100644
--- a/hledger/Hledger/Cli/Commands/Accounts.hs
+++ b/hledger/Hledger/Cli/Commands/Accounts.hs
@@ -47,7 +47,7 @@ accountsmode = (defCommandMode $ ["accounts"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = []
+  where aliases = ["a"]
 
 -- | The accounts command.
 accounts :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index 444d8989c..18777335c 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -288,7 +288,7 @@ balancemode = (defCommandMode $ ["balance"] ++ aliases) { -- also accept but don
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["bal"]
+  where aliases = ["b","bal"]
 
 -- | The balance command, prints a balance report.
 balance :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Print.hs b/hledger/Hledger/Cli/Commands/Print.hs
index 5f48f97c7..62f169eee 100644
--- a/hledger/Hledger/Cli/Commands/Print.hs
+++ b/hledger/Hledger/Cli/Commands/Print.hs
@@ -44,7 +44,7 @@ printmode = (defCommandMode $ ["print"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = []
+  where aliases = ["p","txns"]
 
 -- | Print journal transactions in standard format.
 print' :: CliOpts -> Journal -> IO ()
diff --git a/hledger/Hledger/Cli/Commands/Register.hs b/hledger/Hledger/Cli/Commands/Register.hs
index db6c6b10f..640770c36 100644
--- a/hledger/Hledger/Cli/Commands/Register.hs
+++ b/hledger/Hledger/Cli/Commands/Register.hs
@@ -54,7 +54,7 @@ registermode = (defCommandMode $ ["register"] ++ aliases) {
     ,groupNamed = [generalflagsgroup1]
     }
  }
-  where aliases = ["reg"]
+  where aliases = ["r","reg"]
 
 -- | Print a (posting) register report.
 register :: CliOpts -> Journal -> IO ()