@@ -74,11 +74,11 @@
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
 ;; (if (args:get-arg "-host")
 ;;     (begin
-;;       (set! *runremote* (string-split (args:get-arg "-host" ":")))
+;;       (set! (common:get-remote remote) (string-split (args:get-arg "-host" ":")))
 ;;       (client:launch))
 ;;     (client:launch))
 
 ;; ease debugging by loading ~/.dashboardrc
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
@@ -600,13 +600,12 @@
      (iup:attribute-set! tabtop "TABTITLE4" "runconfigs.config")
      tabtop)))
 
 (define *current-window-id* 0)
 
-(define (newdashboard dbstruct)
-  (let* ((data     (make-hash-table))
-	 (keys     (db:get-keys dbstruct))
+(define (newdashboard data)
+  (let* ((keys     (db:get-keys dbstruct))
 	 (runname  "%")
 	 (testpatt "%")
 	 (keypatts (map (lambda (k)(list k "%")) keys))
 	 (states   '())
 	 (statuses '())
@@ -627,9 +626,10 @@
 				    (changes   (dcommon:run-update keys data runname keypatts testpatt states statuses 'full my-window-id))
 				    (endtime   (current-milliseconds)))
 			       (set! nextmintime (+ endtime (* 2 (- endtime starttime))))
 			       (debug:print 11 "CHANGE(S): " (car changes) "..."))
 			     (debug:print-info 11 "Server overloaded"))))))
-
-(dboard:data-set-updaters! *data* (make-hash-table))
-(newdashboard *dbstruct-local*)    
-(iup:main-loop)
+;;; main
+;;;
+(let ((data (make-hash-table))) ;; data will have "areaname" => "area record" entries
+  (newdashboard data)
+  (iup:main-loop))