@@ -9,28 +9,28 @@
 ;;  PURPOSE.
 ;;======================================================================
 
 ;; make-vector-record tasks task id action owner state target name test item params creation_time execution_time 
 (define (make-tasks:task)(make-vector 11))
-(define-inline (tasks:task-get-id               vec)    (vector-ref  vec 0))
-(define-inline (tasks:task-get-action           vec)    (vector-ref  vec 1))
-(define-inline (tasks:task-get-owner            vec)    (vector-ref  vec 2))
-(define-inline (tasks:task-get-state            vec)    (vector-ref  vec 3))
-(define-inline (tasks:task-get-target           vec)    (vector-ref  vec 4))
-(define-inline (tasks:task-get-name             vec)    (vector-ref  vec 5))
-(define-inline (tasks:task-get-test             vec)    (vector-ref  vec 6))
-(define-inline (tasks:task-get-item             vec)    (vector-ref  vec 7))
-(define-inline (tasks:task-get-params           vec)    (vector-ref  vec 8))
-(define-inline (tasks:task-get-creation_time    vec)    (vector-ref  vec 9))
-(define-inline (tasks:task-get-execution_time   vec)    (vector-ref  vec 10))
+(define-inline (tasks:task-get-id               vec)    (safe-vector-ref  vec 0))
+(define-inline (tasks:task-get-action           vec)    (safe-vector-ref  vec 1))
+(define-inline (tasks:task-get-owner            vec)    (safe-vector-ref  vec 2))
+(define-inline (tasks:task-get-state            vec)    (safe-vector-ref  vec 3))
+(define-inline (tasks:task-get-target           vec)    (safe-vector-ref  vec 4))
+(define-inline (tasks:task-get-name             vec)    (safe-vector-ref  vec 5))
+(define-inline (tasks:task-get-test             vec)    (safe-vector-ref  vec 6))
+(define-inline (tasks:task-get-item             vec)    (safe-vector-ref  vec 7))
+(define-inline (tasks:task-get-params           vec)    (safe-vector-ref  vec 8))
+(define-inline (tasks:task-get-creation_time    vec)    (safe-vector-ref  vec 9))
+(define-inline (tasks:task-get-execution_time   vec)    (safe-vector-ref  vec 10))
 
 (define-inline (tasks:task-set-state!  vec val)(vector-set! vec 3 val))
 
 
 ;; make-vector-record tasks monitor id pid start_time last_update hostname username
 (define (make-tasks:monitor)(make-vector 5))
-(define-inline (tasks:monitor-get-id            vec)    (vector-ref  vec 0))
-(define-inline (tasks:monitor-get-pid           vec)    (vector-ref  vec 1))
-(define-inline (tasks:monitor-get-start_time    vec)    (vector-ref  vec 2))
-(define-inline (tasks:monitor-get-last_update   vec)    (vector-ref  vec 3))
-(define-inline (tasks:monitor-get-hostname      vec)    (vector-ref  vec 4))
-(define-inline (tasks:monitor-get-username      vec)    (vector-ref  vec 5))
+(define-inline (tasks:monitor-get-id            vec)    (safe-vector-ref  vec 0))
+(define-inline (tasks:monitor-get-pid           vec)    (safe-vector-ref  vec 1))
+(define-inline (tasks:monitor-get-start_time    vec)    (safe-vector-ref  vec 2))
+(define-inline (tasks:monitor-get-last_update   vec)    (safe-vector-ref  vec 3))
+(define-inline (tasks:monitor-get-hostname      vec)    (safe-vector-ref  vec 4))
+(define-inline (tasks:monitor-get-username      vec)    (safe-vector-ref  vec 5))