@@ -89,10 +89,14 @@
 ;; (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)))
 
+;; replace runs:make-full-test-name with this routine
+(define (db:test-make-full-name testname itempath)
+  (if (equal? itempath "") testname (conc testname "/" itempath)))
+
 (define-inline (db:test-get-first_err    vec) (printable (vector-ref vec 15)))
 (define-inline (db:test-get-first_warn   vec) (printable (vector-ref vec 16)))
 
 (define-inline (db:test-set-cpuload!  vec val)(vector-set! vec 7 val))
 (define-inline (db:test-set-diskfree! vec val)(vector-set! vec 8 val))
@@ -198,10 +202,12 @@
 (define-inline (tdb:steps-table-get-stepname   vec)    (vector-ref  vec 0))
 (define-inline (tdb:steps-table-get-start      vec)    (vector-ref  vec 1))
 (define-inline (tdb:steps-table-get-end        vec)    (vector-ref  vec 2))
 (define-inline (tdb:steps-table-get-status     vec)    (vector-ref  vec 3))
 (define-inline (tdb:steps-table-get-runtime    vec)    (vector-ref  vec 4))
+(define-inline (tdb:steps-table-get-log-file   vec)    (vector-ref  vec 5))
+
 (define-inline (tdb:step-stable-set-stepname!  vec val)(vector-set! vec 0 val))
 (define-inline (tdb:step-stable-set-start!     vec val)(vector-set! vec 1 val))
 (define-inline (tdb:step-stable-set-end!       vec val)(vector-set! vec 2 val))
 (define-inline (tdb:step-stable-set-status!    vec val)(vector-set! vec 3 val))
 (define-inline (tdb:step-stable-set-runtime!   vec val)(vector-set! vec 4 val))