diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index 569644f14ca..aba2eb6fbf6 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -195,10 +195,11 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp
           writeChan eventChan dc
         watchDate new
 
-    withAsync
-      (getCurrentDay >>= watchDate)
-      $ \_ ->
-
+    withAsync 
+      -- run this small task asynchronously:
+      (getCurrentDay >>= watchDate) 
+      -- until this main task terminates:
+      $ \_async ->
       -- start one or more background threads reporting changes in the directories of our files
       -- XXX many quick successive saves causes the problems listed in BUGS
       -- with Debounce increased to 1s it easily gets stuck on an error or blank screen