Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -39,12 +39,12 @@
 ;; C O M M O N
 ;;======================================================================
 
 (define *dashboard-comment-share-slot* #f)
 
-(define (dtests:get-pre-command #!key (default-override #f))
-  (let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
+(define (dtests:get-pre-command area-dat #!key (default-override #f))
+  (let ((cfg-ovrd (configf:lookup (megatest:area-configdat area-dat) "dashboard" "pre-command")))
     (or cfg-ovrd default-override "xterm -geometry 180x20 -e \"")))
 
 (define (dtests:get-post-command #!key (default-override #f))
   (let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "post-command")))
     (or cfg-ovrd default-override ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))

Index: tests/unittests/basicserver.scm
==================================================================
--- tests/unittests/basicserver.scm
+++ tests/unittests/basicserver.scm
@@ -7,16 +7,16 @@
 ;;  ./rununittest.sh server 1;(cd simplerun;megatest -stop-server 0)
 
 (delete-file* "logs/1.log")
 (define run-id 1)
 
-(test "setup for run" #t (begin (launch:setup-for-run)
+(test "setup for run" #t (begin (launch:setup-for-run *area-dat*)
  				(string? (getenv "MT_RUN_AREA_HOME"))))
 
 ;; NON Server tests go here
 
-(test #f #f (db:dbdat-get-path *db*))
+(test #f #f (db:dbdat-get-path *db* *area-dat*))
 (test #f #f (db:get-run-name-from-id *db* run-id))
 ;; (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
 
 ;; (exit)