Index: multi-dboard.scm
==================================================================
--- multi-dboard.scm
+++ multi-dboard.scm
@@ -68,10 +68,11 @@
 
 (define *runremote* #f)
 (define *windows* (make-hash-table))
 (define *changed-main* (make-hash-table)) ;; set path/... => #t
 (define *changed-mutex* (make-mutex))     ;; use for all incoming change requests
+(define *searchpatts*   (make-hash-table))
 
 (debug:setup)
 
 (define *tim* (iup:timer))
 (define *ord* #f)
@@ -780,20 +781,21 @@
 ;; ease debugging by loading ~/.dashboardrc
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
 
-(let-values 
- (((con port)(dboard:server-start #f)))
- (let ((portnum   (if (string? port)(string->number port) port)))
-   ;; got here, monitor/dashboard was started
-   (mddb:register-dashboard portnum)
-   (thread-start! (make-thread (lambda ()(dboard:server-service con portnum)) "server service"))
-   (thread-start! (make-thread (lambda ()
-				 (let loop ()
-				   (dboard:general-updater con portnum)
-				   (thread-sleep! 1)
-				   (loop))) "general updater"))
-   (dboard:make-window 0)
-   (mddb:unregister-dashboard (get-host-name) portnum)
-   (dboard:server-close con port)))
+(define (main)
+  (let-values 
+      (((con port)(dboard:server-start #f)))
+    (let ((portnum   (if (string? port)(string->number port) port)))
+      ;; got here, monitor/dashboard was started
+      (mddb:register-dashboard portnum)
+      (thread-start! (make-thread (lambda ()(dboard:server-service con portnum)) "server service"))
+      (thread-start! (make-thread (lambda ()
+				    (let loop ()
+				      (dboard:general-updater con portnum)
+				      (thread-sleep! 1)
+				      (loop))) "general updater"))
+      (dboard:make-window 0)
+      (mddb:unregister-dashboard (get-host-name) portnum)
+      (dboard:server-close con port))))
 

ADDED   tests/fullrun/multi-dboard-load-all.scm
Index: tests/fullrun/multi-dboard-load-all.scm
==================================================================
--- /dev/null
+++ tests/fullrun/multi-dboard-load-all.scm
@@ -0,0 +1,13 @@
+
+(require-library margs)
+(load "../../common.scm")
+(load "../../common_records.scm")
+(load "../../margs.scm")
+(load "../../megatest-version.scm")
+(load "../../portlogger.scm")
+(load "../../tasks.scm")
+(load "../../db.scm")
+(load "../../configf.scm")
+(load "../../keys.scm")
+(load "../../tree.scm")
+(load "../../multi-dboard.scm")

Index: tests/fullrun/multi-dboard.sh
==================================================================
--- tests/fullrun/multi-dboard.sh
+++ tests/fullrun/multi-dboard.sh
@@ -1,16 +1,3 @@
 #!/bin/bash
 
-csi -I ../.. << EOF
-(require-library margs)
-(load "../../common.scm")
-(load "../../common_records.scm")
-(load "../../margs.scm")
-(load "../../megatest-version.scm")
-(load "../../portlogger.scm")
-(load "../../tasks.scm")
-(load "../../db.scm")
-(load "../../configf.scm")
-(load "../../keys.scm")
-(load "../../tree.scm")
-(load "../../multi-dboard.scm")
-EOF
+csi -I ../.. multi-dboard-load-all.scm