diff --git a/hledger-ui/Hledger/UI/UIScreens.hs b/hledger-ui/Hledger/UI/UIScreens.hs
index 05f6abbf4..3f55004f3 100644
--- a/hledger-ui/Hledger/UI/UIScreens.hs
+++ b/hledger-ui/Hledger/UI/UIScreens.hs
@@ -160,8 +160,7 @@ asUpdateHelper rspec0 d copts roptsModify extraquery j ass = dbgui "asUpdateHelp
                                 }
 
         -- blanks added for scrolling control, cf RegisterScreen.
-        -- XXX Ugly. Changing to 0 helps when debugging.
-        blankitems = replicate uiNumBlankItems
+        blankitems = replicate uiNumBlankItems  -- XXX ugly hard-coded value. When debugging, changing to 0 reduces noise.
           AccountsScreenItem{asItemIndentLevel        = 0
                             ,asItemAccountName        = ""
                             ,asItemDisplayAccountName = ""
diff --git a/hledger-ui/Hledger/UI/UITypes.hs b/hledger-ui/Hledger/UI/UITypes.hs
index e21d9b502..7135eafd3 100644
--- a/hledger-ui/Hledger/UI/UITypes.hs
+++ b/hledger-ui/Hledger/UI/UITypes.hs
@@ -69,7 +69,7 @@ data UIState = UIState {
     -- can change while program runs:
   ,aopts         :: UIOpts    -- ^ the command-line options and query arguments currently in effect
   ,ajournal      :: Journal   -- ^ the journal being viewed (can change with --watch)
-  ,aPrevScreens :: [Screen] -- ^ previously visited screens, most recent first
+  ,aPrevScreens :: [Screen] -- ^ previously visited screens, most recent first (XXX silly, reverse these)
   ,aScreen      :: Screen   -- ^ the currently active screen
   ,aMode         :: Mode      -- ^ the currently active mode on the current screen
   } deriving (Show)
diff --git a/hledger-ui/Hledger/UI/UIUtils.hs b/hledger-ui/Hledger/UI/UIUtils.hs
index 900961430..4295c46c0 100644
--- a/hledger-ui/Hledger/UI/UIUtils.hs
+++ b/hledger-ui/Hledger/UI/UIUtils.hs
@@ -274,7 +274,8 @@ renderToggle1 isactive l =
 
 -- temporary shenanigans:
 
--- | Convert the special account name "*" (from balance report with depth limit 0) to something clearer.
+-- | Replace the special account names "*" and "..." (from balance reports with depth limit 0)
+-- to something clearer.
 replaceHiddenAccountsNameWith :: AccountName -> AccountName -> AccountName
 replaceHiddenAccountsNameWith anew a | a == hiddenAccountsName = anew
                                      | a == "*"                = anew
diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs
index 8ca2e3c9d..95b9dcbeb 100644
--- a/hledger/Hledger/Cli/Main.hs
+++ b/hledger/Hledger/Cli/Main.hs
@@ -1,6 +1,6 @@
 {-|
 hledger - a ledger-compatible accounting tool.
-Copyright (c) 2007-2011 Simon Michael <simon@joyful.com>
+Copyright (c) 2007-2022 Simon Michael <simon@joyful.com>
 Released under GPL version 3 or later.
 
 hledger is a partial haskell clone of John Wiegley's "ledger".  It