Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -342,11 +342,15 @@
 	    ":"
 	    (http-transport:server-dat-get-port  vec))
       #f))
 
 (define (http-transport:server-dat-update-last-access vec)
-  (vector-set! vec 5 (current-seconds)))
+  (if (vector? vec)
+      (vector-set! vec 5 (current-seconds))
+      (begin
+	(print-call-chain (current-error-port))
+	(debug:print 0 "ERROR: call to http-transport:server-dat-update-last-access with non-vector!!"))))
 
 ;;
 ;; connect
 ;;
 (define (http-transport:client-connect iface port)

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -161,11 +161,11 @@
      (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
      (print "exn=" (condition->list exn))
      #f) ;; if this fails we don't care, it is just stats
    (let* ((cmd      (conc "run-id=" run-id " " (if (eq? rawcmd 'general-call) (car params) rawcmd)))
 	  (stat-vec (hash-table-ref/default *db-stats* cmd #f)))
-     (if (not stat-vec)
+     (if (not (vector? stat-vec))
 	 (let ((newvec (vector 0 0)))
 	   (hash-table-set! *db-stats* cmd newvec)
 	   (set! stat-vec newvec)))
      (vector-set! stat-vec 0 (+ (vector-ref stat-vec 0) 1))
      (vector-set! stat-vec 1 (+ (vector-ref stat-vec 1) duration))))

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -369,11 +369,16 @@
     (debug:print-info 4 "test-records=" (hash-table->alist test-records))
     (let ((reglen (configf:lookup *configdat* "setup" "runqueue")))
       (if (> (length (hash-table-keys test-records)) 0)
 	  (let* ((keep-going #t)
 		 (th1        (make-thread (lambda ()
-					    (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests (any->number reglen) all-tests-registry))
+					    (handle-exceptions
+					     exn
+					     (begin
+					       (print-call-chain (current-error-port))
+					       (debug:print 0 "ERROR: failure in runs:run-tests-queue thread, error: " ((condition-property-accessor 'exn 'message) exn)))
+					     (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests (any->number reglen) all-tests-registry)))
 					  "runs:run-tests-queue"))
 		 (th2        (make-thread (lambda ()				    
 					    ;; (rmt:find-and-mark-incomplete-all-runs))))) CAN'T INTERRUPT IT ...
 					    (let ((run-ids (rmt:get-all-run-ids)))
 					      (for-each (lambda (run-id)