@@ -1422,12 +1422,12 @@
   (common:clear-caches) ;; clear all caches
   (let* ((db           #f)
 	 (tdbdat       (tasks:open-db))
 	 (keys         (rmt:get-keys))
 	 (rundat       (mt:get-runs-by-patt keys runnamepatt target))
-	 (header       (vector-ref rundat 0))
-	 (runs         (vector-ref rundat 1))
+	 (header       (safe-vector-ref rundat 0))
+	 (runs         (safe-vector-ref rundat 1))
 	 (states       (if state  (string-split state  ",") '()))
 	 (statuses     (if status (string-split status ",") '()))
 	 (state-status (if (string? new-state-status) (string-split new-state-status ",") '(#f #f))))
     (debug:print-info 4 "runs:operate-on => Header: " header " action: " action " new-state-status: " new-state-status)
     (if (> 2 (length state-status))
@@ -1680,12 +1680,12 @@
 ;;======================================================================
 
 (define (runs:handle-locking target keys runname lock unlock user)
   (let* ((db       #f)
 	 (rundat   (mt:get-runs-by-patt keys runname target))
-	 (header   (vector-ref rundat 0))
-	 (runs     (vector-ref rundat 1)))
+	 (header   (safe-vector-ref rundat 0))
+	 (runs     (safe-vector-ref rundat 1)))
     (for-each (lambda (run)
 		(let ((run-id (db:get-value-by-header run header "id")))
 		  (if (or lock
 			  (and unlock
 			       (begin
@@ -1709,11 +1709,11 @@
      (lambda (key)
        (let* ((idx (cadr key))
 	      (fld (car  key))
 	      (val (config-lookup test-conf "test_meta" fld)))
 	 ;; (debug:print 5 "idx: " idx " fld: " fld " val: " val)
-	 (if (and val (not (equal? (vector-ref currrecord idx) val)))
+	 (if (and val (not (equal? (safe-vector-ref currrecord idx) val)))
 	     (begin
 	       (print "Updating " test-name " " fld " to " val)
 	       (rmt:testmeta-update-field test-name fld val)))))
      '(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)("jobgroup" 10)))))