diff --git a/hledger/Hledger/Cli/CliOptions.hs b/hledger/Hledger/Cli/CliOptions.hs
index dbf2909ef..08f05de90 100644
--- a/hledger/Hledger/Cli/CliOptions.hs
+++ b/hledger/Hledger/Cli/CliOptions.hs
@@ -233,7 +233,7 @@ showModeUsage = (showText defaultWrap :: [Text] -> String) .
 -- | Get a mode's long help, ready for console output
 -- (currently, the hledger man page formatted for 80 columns).
 showModeHelp :: Mode a -> String
-showModeHelp _ = lookupDocTxt "hledger"
+showModeHelp _ = lookupDocTxt "cli"
 
 -- | Add command aliases to the command's help string.
 withAliases :: String -> [String] -> String