@@ -65,26 +65,28 @@
 (define (dbr:dbstruct-set-localdb! v run-id db)
   (hash-table-set! (dbr:dbstruct-get-locdbs v) run-id db))
 
 (require-extension typed-records)
 (defstruct db:test-rec ((id -1) : number)
-					((run_id -1) : number) 
-					((testname "") : string)
+					((run-id -1) : number) 
+					((test-name "") : string)
 					((state "") : string)
 					((status "") : string)
-					((event_time -1) : number)
+					((event-time -1) : number)
 					((host "") : string)
-					((cpuload -1) : number)
-					((diskfree -1) : number)
+					((cpu-load -1) : number)
+					((disk-free -1) : number)
 					((uname "") : string)
-					((rundir "") : string)
-					((item_path "") : string)
-					((run_duration -1) : number)
-					((final_logf "") : string)
+					((run-dir "") : string)
+					((item-path "") : string)
+					((run-duration -1) : number)
+					((final-logf "") : string)
 					((comment "") : string)
-					((process_id -1) : number)
-					((archived -1) : number))
+					((process-id -1) : number)
+					((archived -1) : number)
+					((short-dir -1) : number)
+					((attempt-num -1) : number))
 
 (define (db:qry-gen-alist qrystr listvals)
 	(define listqry (string-split qrystr ","))
 	(if (null? listqry)
 	      '()