@@ -106,13 +106,20 @@
 (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)))
 
+(define-inline (test:test-get-fullname test)
+   (conc (db:test-get-testname test)
+	 (if (equal? (db:test-get-item-path test) "")
+	     ""
+	     (conc "(" (db:test-get-item-path test) ")"))))
+
 ;; 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)))
@@ -240,20 +247,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))
-
-;; The data structure for handing off requests via wire
-(define (make-cdb:packet)(make-vector 6))
-(define-inline (cdb:packet-get-client-sig   vec)    (vector-ref  vec 0))
-(define-inline (cdb:packet-get-qtype        vec)    (vector-ref  vec 1))
-(define-inline (cdb:packet-get-immediate    vec)    (vector-ref  vec 2))
-(define-inline (cdb:packet-get-query-sig    vec)    (vector-ref  vec 3))
-(define-inline (cdb:packet-get-params       vec)    (vector-ref  vec 4))
-(define-inline (cdb:packet-get-qtime        vec)    (vector-ref  vec 5))
-(define-inline (cdb:packet-set-client-sig!  vec val)(vector-set! vec 0 val))
-(define-inline (cdb:packet-set-qtype!       vec val)(vector-set! vec 1 val))
-(define-inline (cdb:packet-set-immediate!   vec val)(vector-set! vec 2 val))
-(define-inline (cdb:packet-set-query-sig!   vec val)(vector-set! vec 3 val))
-(define-inline (cdb:packet-set-params!      vec val)(vector-set! vec 4 val))
-(define-inline (cdb:packet-set-qtime!       vec val)(vector-set! vec 5 val))