Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1288,10 +1288,14 @@
       (and (> modtime last-db-update-time)
 	   (> (current-seconds)(+ last-db-update-time 1)))))
 
 (define *monitor-db-path* (conc *toppath* "/monitor.db"))
 (define *last-monitor-update-time* 0)
+
+;; Force creation of the db in case it isn't already there.
+(let ((db (tasks:open-db)))
+  (sqlite3:finalize! db))
 
 (define (dashboard:run-update x)
   (let* ((modtime         (file-modification-time *db-file-path*))
 	 (monitor-modtime (file-modification-time *monitor-db-path*))
 	 (run-update-time (current-seconds))