diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index 231d18a41..14ff926e8 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -33,7 +33,7 @@ import Hledger.UI.Theme
 import Hledger.UI.UIOptions
 import Hledger.UI.UITypes
 import Hledger.UI.UIState (uiState, getDepth)
-import Hledger.UI.UIUtils (dlogUiTrace, dlogUiTraceM)
+import Hledger.UI.UIUtils (dlogUiTraceM, dlogUiTraceIO)
 import Hledger.UI.MenuScreen
 import Hledger.UI.AccountsScreen
 import Hledger.UI.BalancesheetScreen
@@ -69,7 +69,7 @@ main = do
 
 runBrickUi :: UIOpts -> Journal -> IO ()
 runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=rspec@ReportSpec{_rsReportOpts=ropts}}} j =
-  dlogUiTrace "==== runBrickUi" $ do
+  do
   let
     today = copts^.rsDay
 
@@ -166,6 +166,8 @@ runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=r
       setMode (outputIface v) Mouse True
       return v
 
+  dlogUiTraceIO "\n\n==== hledger-ui start"
+
   if not (uoWatch uopts)
   then do
     vty <- makevty
@@ -241,7 +243,7 @@ brickApp mtheme = App {
 
 uiHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
 uiHandle ev = do
-  dlogUiTraceM $ "==== " ++ show ev
+  dlogUiTraceM $ "\n==== " ++ show ev
   ui <- get
   case aScreen ui of
     MS _ -> msHandle ev