diff --git a/Assistant.hs b/Assistant.hs
index f5acc2ef8a..880d3eb5e3 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -77,6 +77,7 @@ startDaemon foreground
 				_ <- forkIO $ commitThread st changechan
 				_ <- forkIO $ daemonStatusThread st dstatus
 				_ <- forkIO $ sanityCheckerThread st dstatus changechan
+				-- Does not return.
 				watchThread st dstatus changechan
 
 stopDaemon :: Annex ()