@@ -51,10 +51,13 @@
       (vector-ref *task-db* 1)
       (let* ((linktree     (configf:lookup *configdat* "setup" "linktree"))
 	     (dbpath       (conc linktree "/.db/monitor.db")))
 	dbpath)))
 
+(define (tasks:wait-on-busy-monitor.db)
+  (tasks:wait-on-journal (tasks:get-task-db-path) 30))
+
 ;; If file exists AND
 ;;    file readable
 ;;         ==> open it
 ;; If file exists AND
 ;;    file NOT readable