diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index 2892c75ba..fd9795003 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -204,7 +204,7 @@ asDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
-                else str "historical" <+> selectedstr "/period")
+                else str "historical/" <+> selectedstr "period")
               ,("F"
                ,if flat_ ropts
                 then str "tree/" <+> selectedstr "flat"
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index 2f062223a..9ff8409fc 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -203,7 +203,7 @@ rsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
-                else str "historical" <+> selectedstr "/period")
+                else str "historical/" <+> selectedstr "period")
               ,("F"
                ,if inclusive
                 then selectedstr "inclusive" <+> str "/exclusive"