Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -107,11 +107,11 @@
 	    ((set-run-status)               (apply db:set-run-status dbstruct params))
 	    ((register-run)                 (apply db:register-run dbstruct params))
 	    ((set-tests-state-status)       (apply db:set-tests-state-status dbstruct params))
 	    ((get-tests-for-run)            (apply db:get-tests-for-run dbstruct params))
 	    ((get-test-id)                  (apply db:get-test-id dbstruct params))
-	    ((get-tests-for-runs-mindata)   (apply db:get-tests-for-runs-mindata dbstruct params))
+	    ((get-tests-for-run-mindata)    (apply db:get-tests-for-run-mindata dbstruct params))
 	    ((get-run-name-from-id)         (apply db:get-run-name-from-id dbstruct params))
 	    ((delete-run)                   (apply db:delete-run dbstruct params))
 	    ((get-runs)                     (apply db:get-runs dbstruct params))
 	    ((get-all-run-ids)              (db:get-all-run-ids dbstruct))
 	    ((get-prev-run-ids)             (apply db:get-prev-run-ids dbstruct params))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1720,13 +1720,23 @@
 		   test-id)))
     res))
 
 ;; get a useful subset of the tests data (used in dashboard
 ;; use db:mintests-get-{id ,run_id,testname ...}
+;; 
 (define (db:get-tests-for-runs-mindata dbstruct run-ids testpatt states statuses not-in)
-  (db:get-tests-for-runs dbstruct run-ids testpatt states statuses not-in: not-in qryvals: "id,run_id,testname,state,status,event_time,item_path"))
+  (debug:print 0 "ERROR: BROKN!")
+  ;; (db:get-tests-for-runs dbstruct run-ids testpatt states statuses not-in: not-in qryvals: "id,run_id,testname,state,status,event_time,item_path"))
+)
 
+;; get a useful subset of the tests data (used in dashboard
+;;
+(define (db:get-tests-for-run-mindata dbstruct run-id testpatt states statuses not-in)
+  (db:get-tests-for-run dbstruct run-id testpatt states statuses #f #f not-in #f #f "id,run_id,testname,state,status,event_time,item_path"))
+
+;; do not use.
+;;
 (define (db:get-tests-for-runs dbstruct run-ids testpatt states statuses #!key (not-in #f)(qryvals #f))
   ;; (db:delay-if-busy)
   (let ((res '()))
     (for-each 
      (lambda (run-id)

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -245,27 +245,28 @@
 			   (debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
 			   (exit 1))))
 	 (res        #f)
 	 (success    #t)
 	 (sparams    (db:obj->string params transport: 'http)))
-    (handle-exceptions
-     exn
-     (if (> numretries 0)
-	 (begin
-	   (mutex-unlock! *http-mutex*)
-	   (thread-sleep! 1)
-	   (handle-exceptions
-	    exn
-	    (debug:print 0 "WARNING: closing connections failed. Server at " fullurl " almost certainly dead")
-	    (close-all-connections!))
-	   (debug:print 0 "WARNING: Failed to communicate with server, trying again, numretries left: " numretries)
-	   (http-transport:client-api-send-receive run-id serverdat cmd sparams numretries: (- numretries 1)))
-	 (begin
-	   (mutex-unlock! *http-mutex*)
-	   (tasks:kill-server-run-id run-id)
-	   #f))
-     (begin
+;;    (condition-case
+;;     handle-exceptions
+;;     exn
+;;     (if (> numretries 0)
+;;	 (begin
+;;	   (mutex-unlock! *http-mutex*)
+;;	   (thread-sleep! 1)
+;;	   (handle-exceptions
+;;	    exn
+;;	    (debug:print 0 "WARNING: closing connections failed. Server at " fullurl " almost certainly dead")
+;;	    (close-all-connections!))
+;;	   (debug:print 0 "WARNING: Failed to communicate with server, trying again, numretries left: " numretries)
+;;	   (http-transport:client-api-send-receive run-id serverdat cmd sparams numretries: (- numretries 1)))
+;;	 (begin
+;;	   (mutex-unlock! *http-mutex*)
+;;	   (tasks:kill-server-run-id run-id)
+;;	   #f))
+;;     (begin
        (debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
        ;; set up the http-client here
        (max-retry-attempts 1)
        ;; consider all requests indempotent
        (retry-request? (lambda (request)
@@ -308,11 +309,24 @@
 	 (thread-start! th1)
 	 (thread-start! th2)
 	 (thread-join! th1)
 	 (thread-terminate! th2)
 	 (debug:print-info 11 "got res=" res)
-	 res)))))
+	 (if (vector? res)
+	     (if (vector-ref res 0)
+		 res
+		 (begin ;; note: this code also called in nmsg-transport - consider consolidating it
+		   (debug:print 0 "ERROR: error occured at server, info=" (vector-ref result 2))
+		   (debug:print 0 " client call chain:")
+		   (print-call-chain (current-error-port))
+		   (debug:print 0 " server call chain:")
+		   (pp (vector-ref result 1) (current-error-port))
+		   (signal (vector-ref result 0))))
+	     (signal (make-composite-condition
+		      (make-property-condition 
+		       'timeout
+		       'message "nmsg-transport:client-api-send-receive-raw timed out talking to server")))))))
 
 ;; careful closing of connections stored in *runremote*
 ;;
 (define (http-transport:close-connections run-id)
   (let* ((server-dat (hash-table-ref/default *runremote* run-id #f)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -332,16 +332,18 @@
       (begin
 	(debug:print "ERROR: rmt:get-tests-for-run called with bad run-id=" run-id)
 	(print-call-chain (current-error-port))
 	'())))
 
+;; IDEA: Threadify these - they spend a lot of time waiting ...
+;;
 (define (rmt:get-tests-for-runs-mindata run-ids testpatt states status not-in)
   (let ((run-id-list (if run-ids
 			 run-ids
 			 (rmt:get-all-run-ids))))
     (apply append (map (lambda (run-id)
-			 (rmt:send-receive 'get-tests-for-run-mindata run-id (list run-ids testpatt states status not-in)))
+			 (rmt:send-receive 'get-tests-for-run-mindata run-id (list run-id testpatt states status not-in)))
 		       run-id-list))))
 
 (define (rmt:delete-test-records run-id test-id)
   (rmt:send-receive 'delete-test-records run-id (list run-id test-id)))