Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -204,21 +204,21 @@
     (iup:frame
      #:title "Set fields"
      (iup:vbox
       (iup:hbox (iup:label "Comment:")
 		(iup:textbox #:action (lambda (val a b)
-					(open-run-close db:test-set-state-status-by-id *db* test-id #f #f b)
+					(cdb:run-remote db:test-set-state-status-by-id #f test-id #f #f b)
 					(set! newcomment b))
 			     #:value (db:test-get-comment testdat)
 			     #:expand "HORIZONTAL"))
       (apply iup:hbox
 	     (iup:label "STATE:" #:size "30x")
 	     (let* ((btns  (map (lambda (state)
 				  (let ((btn (iup:button state
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
-								    (open-run-close db:test-set-state-status-by-id *db* test-id state #f #f)
+								    (cdb:run-remote db:test-set-state-status-by-id #f test-id state #f #f)
 								    (db:test-set-state! testdat state)))))
 				    btn))
 				(list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ"))))
 	       (vector-set! *state-status* 0
 			    (lambda (state color)
@@ -234,11 +234,11 @@
 	     (iup:label "STATUS:" #:size "30x")
 	     (let* ((btns  (map (lambda (status)
 				  (let ((btn (iup:button status
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
-								    (open-run-close db:test-set-state-status-by-id *db* test-id #f status #f)
+								    (cdb:run-remote db:test-set-state-status-by-id #f test-id #f status #f)
 								    (db:test-set-status! testdat status)))))
 				    btn))
 				(list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED"))))
 	       (vector-set! *state-status* 1
 			    (lambda (status color)
@@ -254,11 +254,11 @@
 
 ;;======================================================================
 ;;
 ;;======================================================================
 (define (examine-test test-id) ;; run-id run-key origtest)
-  (let* ((testdat       (open-run-close db:get-test-info-by-id #f test-id))
+  (let* ((testdat       (cdb:run-remote db:get-test-info-by-id #f test-id))
 	 (db-path       (conc *toppath* "/megatest.db"))
 	 (db-mod-time   0) ;; (file-modification-time db-path))
 	 (last-update   0) ;; (current-seconds))
 	 (request-update #t)
 	 (db             #f))
@@ -265,22 +265,22 @@
     (if (not testdat)
 	(begin
 	  (debug:print 0 "ERROR: No test data found for test " test-id ", exiting")
 	  (exit 1))
 	(let* ((run-id        (if testdat (db:test-get-run_id testdat) #f))
-	       (keydat        (if testdat (open-run-close db:get-key-val-pairs db run-id) #f))
-	       (rundat        (if testdat (open-run-close db:get-run-info db run-id) #f))
+	       (keydat        (if testdat (cdb:run-remote db:get-key-val-pairs #f run-id) #f))
+	       (rundat        (if testdat (cdb:run-remote db:get-run-info #f run-id) #f))
 	       (runname       (if testdat (db:get-value-by-header (db:get-row rundat)
 								  (db:get-header rundat)
 								  "runname") #f))
 					;(teststeps     (if testdat (db:get-steps-for-test db test-id) #f))
 	       (logfile       "/this/dir/better/not/exist")
 	       (rundir        logfile)
 	       (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
 	       (testname      (if testdat (db:test-get-testname testdat) "n/a"))
 	       (testmeta      (if testdat 
-				  (let ((tm (open-run-close db:testmeta-get-record db testname)))
+				  (let ((tm (cdb:run-remote db:testmeta-get-record #f testname)))
 				    (if tm tm (make-db:testmeta)))
 				  (make-db:testmeta)))
 
 	       (keystring  (string-intersperse 
 			    (map (lambda (keyval)

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -171,10 +171,11 @@
 		 (runs        (db:get-rows   allruns))
 		 (result      '())
 		 (maxtests    0)
 		 (states      (hash-table-keys *state-ignore-hash*))
 		 (statuses    (hash-table-keys *status-ignore-hash*)))
+	    ;; (thread-sleep! 0.1) ;; give some time to other threads
 	    (debug:print 6 "update-rundat, got " (length runs) " runs")
 	    (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
 		(begin
 		  (set! *last-update* (current-seconds))
 		  (set! *tot-run-count* (length runs)))) ;; (rdb:get-num-runs *db* runnamepatt))))

Index: testzmq/hwclient.scm
==================================================================
--- testzmq/hwclient.scm
+++ testzmq/hwclient.scm
@@ -1,6 +1,6 @@
-(use zmq posix)
+(use zmq posix srfi-18)
 
 (define s (make-socket 'req))
 (connect-socket s "tcp://*:5563")
 
 (define myname (cadr (argv)))

Index: testzmq/hwserver.scm
==================================================================
--- testzmq/hwserver.scm
+++ testzmq/hwserver.scm
@@ -1,15 +1,28 @@
 (use zmq srfi-18 posix)
 
-(define s (make-socket 'rep))
-(bind-socket s "tcp://*:5563")
-
-(print "Start server...")
-(let loop ()
-  (let* ((msg  (receive-message s))
-	 (name (caddr (string-split msg " ")))
-	 (resp (conc "World " name)))
-    (print "Received request: [" msg "]")
-    (thread-sleep! 0.0001)
-    (print "Sending response \"" resp "\"")
-    (send-message s resp)
-    (loop)))
+(define th1 (make-thread 
+	     (lambda ()
+	       (let ((s (make-socket 'rep)))
+		 (bind-socket s "tcp://*:5563")
+		 (print "Start server...")
+		 (let loop ()
+		   (let* ((msg  (receive-message s))
+			  (name (caddr (string-split msg " ")))
+			  (resp (conc "World " name)))
+		     (print "Received request: [" msg "]")
+		     (thread-sleep! 0.0001)
+		     (print "Sending response \"" resp "\"")
+		     (send-message s resp)
+		     (loop)))))))
+(define th2 (make-thread
+	     (lambda ()
+	       (let loop ((count 0))
+		 (print "count is " count)
+		 (thread-sleep! 0.1)
+		 (if (< count 10000)
+		     (loop (+ count 1)))))))
+
+(thread-start! th1)
+(thread-start! th2)
+
+(thread-join! th1)

Index: testzmq/hwtest.sh
==================================================================
--- testzmq/hwtest.sh
+++ testzmq/hwtest.sh
@@ -2,11 +2,12 @@
 
 echo Compiling hwclient and hwserver
 csc hwclient.scm
 csc hwserver.scm
 
-./hwserver &
+./hwserver > hwserver.log &
+
 sleep 1
 for x in a b c d e f g h i j k l m n o p q r s t u v w x y z;do
 ./hwclient $x &
 done