@@ -21,11 +21,11 @@
 ;;======================================================================
 ;; Tasks db
 ;;======================================================================
 
 (define (tasks:open-db)
-  (let* ((dbpath       (conc *toppath* "/monitor.db"))
+  (let* ((dbpath       (conc *toppath* "/db/monitor.db"))
 	 (exists       (file-exists? dbpath))
 	 (write-access (file-write-access? dbpath))
 	 (mdb          (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
 	 (handler      (make-busy-timeout 36000)))
     (if (and exists
@@ -64,10 +64,11 @@
                                   priority INTEGER,
                                   state TEXT,
                                   mt_version TEXT,
                                   heartbeat TIMESTAMP,
                                   transport TEXT,
+                                  run_id INTEGER,
                                CONSTRAINT servers_constraint UNIQUE (pid,hostname,port));")
 	  (sqlite3:execute mdb "CREATE TABLE IF NOT EXISTS clients (id INTEGER PRIMARY KEY,
                                   server_id INTEGER,
                                   pid INTEGER,
                                   hostname TEXT,