Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -75,34 +75,34 @@
 					((host "") : string)
 					((cpuload -1) : number)
 					((diskfree -1) : number)
 					((uname "") : string)
 					((rundir "") : string)
-					((item-path "") : string)
+					((item_path "") : string)
 					((run_duration -1) : number)
-					((final_log "") : string)
+					((final_logf "") : string)
 					((comment "") : string)
 					((process_id -1) : number)
 					((archived #f) : boolean))
 
-(define db:test-get-id 			  db:test-rec-id)
-(define db:test-get-run_id 		  db:test-rec-run_id)
-(define db:test-get-testname      db:test-rec-testname)
-(define db:test-get-state         db:test-rec-state)
-(define db:test-get-status        db:test-rec-status)
-(define db:test-get-event_time    db:test-rec-event_time)
-(define db:test-get-host          db:test-rec-host)
-(define db:test-get-cpuload       db:test-rec-cpuload)
-(define db:test-get-diskfree      db:test-rec-diskfree)
-(define db:test-get-uname         db:test-rec-uname)
-(define db:test-get-rundir        db:test-rec-rundir)
-(define db:test-get-item-path     db:test-rec-itempath)
-(define db:test-get-run_duration  db:test-rec-run_duration)
-(define db:test-get-final_logf    db:test-rec-final_log)
-(define db:test-get-comment       db:test-rec-comment)
-(define db:test-get-process_id    db:test-rec-process_id)
-(define db:test-get-archived      db:test-rec-archived)
+(define (db:test-get-id			typed-rec)   (db:test-rec-id 		typed-rec))
+(define (db:test-get-run_id 	typed-rec)	 (db:test-rec-run_id 	typed-rec))
+(define (db:test-get-testname   typed-rec)   (db:test-rec-testname 	typed-rec))
+(define (db:test-get-state      typed-rec)   (db:test-rec-state 	typed-rec))
+(define (db:test-get-status     typed-rec)   (db:test-rec-status 	typed-rec))
+(define (db:test-get-event_time typed-rec)   (db:test-rec-event_time typed-rec))
+(define (db:test-get-host       typed-rec)   (db:test-rec-host 		typed-rec))
+(define (db:test-get-cpuload    typed-rec)   (db:test-rec-cpuload 	typed-rec))
+(define (db:test-get-diskfree   typed-rec)   (db:test-rec-diskfree 	typed-rec))
+(define (db:test-get-uname      typed-rec)   (db:test-rec-uname 	typed-rec))
+(define (db:test-get-rundir     typed-rec)   (db:test-rec-rundir 	typed-rec))
+(define (db:test-get-item-path  typed-rec)   (db:test-rec-item_path typed-rec))
+(define (db:test-get-run_duration typed-rec)  (db:test-rec-run_duration typed-rec))
+(define (db:test-get-final_logf typed-rec)   (db:test-rec-final_logf typed-rec))
+(define (db:test-get-comment    typed-rec)   (db:test-rec-comment 	typed-rec))
+(define (db:test-get-process_id typed-rec)   (db:test-rec-process_id typed-rec))
+(define (db:test-get-archived   typed-rec)   (db:test-rec-archived 	typed-rec))
 
 ;; (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)))