@@ -102,10 +102,11 @@
 (define-inline (db:test-get-run_duration vec) (vector-ref vec 12))
 (define-inline (db:test-get-final_logf   vec) (vector-ref vec 13))
 (define-inline (db:test-get-comment      vec) (vector-ref vec 14))
 (define-inline (db:test-get-process_id   vec) (vector-ref vec 16))
 (define-inline (db:test-get-archived     vec) (vector-ref vec 17))
+(define-inline (db:test-get-last_update     vec) (vector-ref vec 18))
 
 ;; (define-inline (db:test-get-pass_count   vec) (vector-ref vec 15))
 ;; (define-inline (db:test-get-fail_count   vec) (vector-ref vec 16))
 (define-inline (db:test-get-fullname     vec)
   (conc (db:test-get-testname vec) "/" (db:test-get-item-path vec)))
@@ -186,10 +187,11 @@
 (define-inline (db:test-data-get-tol              vec)    (vector-ref  vec 6))
 (define-inline (db:test-data-get-units            vec)    (vector-ref  vec 7))
 (define-inline (db:test-data-get-comment          vec)    (vector-ref  vec 8))
 (define-inline (db:test-data-get-status           vec)    (vector-ref  vec 9))
 (define-inline (db:test-data-get-type             vec)    (vector-ref  vec 10))
+(define-inline (db:test-data-get-last_update      vec)    (vector-ref  vec 11))
 
 (define-inline (db:test-data-set-id!              vec val)(vector-set!  vec 0  val))
 (define-inline (db:test-data-set-test_id!         vec val)(vector-set!  vec 1  val))
 (define-inline (db:test-data-set-category!        vec val)(vector-set!  vec 2  val))
 (define-inline (db:test-data-set-variable!        vec val)(vector-set!  vec 3  val))
@@ -204,27 +206,28 @@
 ;;======================================================================
 ;; S T E P S 
 ;;======================================================================
 ;; Run steps
 ;; make-vector-record "Run steps" db step id test_id stepname step_complete step_pass event_time    
-(define (make-db:step)(make-vector 7))
+(define (make-db:step)(make-vector 9))
 (define-inline (tdb:step-get-id              vec)    (vector-ref  vec 0))
 (define-inline (tdb:step-get-test_id         vec)    (vector-ref  vec 1))
 (define-inline (tdb:step-get-stepname        vec)    (vector-ref  vec 2))
 (define-inline (tdb:step-get-state           vec)    (vector-ref  vec 3))
 (define-inline (tdb:step-get-status          vec)    (vector-ref  vec 4))
 (define-inline (tdb:step-get-event_time      vec)    (vector-ref  vec 5))
 (define-inline (tdb:step-get-logfile         vec)    (vector-ref  vec 6))
 (define-inline (tdb:step-get-comment         vec)    (vector-ref  vec 7))
+(define-inline (tdb:step-get-last_update     vec)    (vector-ref  vec 8))
 (define-inline (tdb:step-set-id!             vec val)(vector-set! vec 0 val))
 (define-inline (tdb:step-set-test_id!        vec val)(vector-set! vec 1 val))
 (define-inline (tdb:step-set-stepname!       vec val)(vector-set! vec 2 val))
 (define-inline (tdb:step-set-state!          vec val)(vector-set! vec 3 val))
 (define-inline (tdb:step-set-status!         vec val)(vector-set! vec 4 val))
 (define-inline (tdb:step-set-event_time!     vec val)(vector-set! vec 5 val))
 (define-inline (tdb:step-set-logfile!        vec val)(vector-set! vec 6 val))
-(define-inline (tdb:step-set-comment!        vec vak)(vector-set! vec 7 val))
+(define-inline (tdb:step-set-comment!        vec val)(vector-set! vec 7 val))
 
 
 ;; The steps table
 (define (make-db:steps-table)(make-vector 5))
 (define-inline (tdb:steps-table-get-stepname   vec)    (vector-ref  vec 0))