@@ -474,12 +474,12 @@
     (iup:attribute-set! stats-matrix "WIDTHDEF" "40")
     (iup:vbox
      ;; (iup:label "Run statistics"  #:expand "HORIZONTAL")
      stats-matrix)))
 
-(define (dcommon:servers-table)
-  (let* ((tdbdat         (tasks:open-db))
+(define (dcommon:servers-table area-dat)
+  (let* ((tdbdat         (tasks:open-db area-dat))
 	 (colnum         0)
 	 (rownum         0)
 	 (servers-matrix (iup:matrix #:expand "YES"
 				     #:numcol 7
 				     #:numcol-visible 7
@@ -2126,11 +2126,11 @@
 
 (define *monitor-db-path* (conc *dbdir* "/monitor.db"))
 (define *last-monitor-update-time* 0)
 
 ;; Force creation of the db in case it isn't already there.
-(tasks:open-db)
+(tasks:open-db area-dat)
 
 (define (dashboard:get-youngest-run-db-mod-time)
   (handle-exceptions
    exn
    (begin