Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -903,11 +903,11 @@
 					   ;; (filter 
 					   ;;   (lambda (x)(equal? (test:test-get-fullname x) testname))
 					   ;;     testsdat)))
 					   (if (not matching)
 					       ;;(vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
-					       (make-db:test-rec (id -1))
+					       (make-db:test-rec id: -1)
 					       ;; (car matching))))
 					       matching)))
 			   (testname     (db:test-get-testname   testdat))
 			   (itempath     (db:test-get-item-path  testdat))
 			   (testfullname (test:test-get-fullname testdat))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2295,11 +2295,11 @@
 		(lambda (db)
 		  (sqlite3:for-each-row
 		   (lambda (id testname item-path state status)
 		     ;;                      id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment
 		     ;;(set! res (cons (vector id run-id testname state status -1         ""     -1      -1       ""    "-"  item-path -1           "-"         "-") res)))
-		     (cons (make-db:test-rec id: id testname: testname item_path: item-path state: state status: status) res))
+		     (set! res (cons (make-db:test-rec id: id testname: testname item_path: item-path state: state status: status) res)))
 		   db 
 		   qry
 		   run-id)))
     res))
 
@@ -2309,11 +2309,11 @@
 		(lambda (db)
 		  (sqlite3:for-each-row
 		   (lambda (run-id testname item-path state status)
 		     ;; id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment
 		     ;;(set! res (vector test-id run-id testname state status -1 "" -1 -1 "" "-" item-path -1 "-" "-")))
-		     (cons (make-db:test-rec run_id: run-id testname: testname item_path: item-path state: state status: status) res))
+		     (set! res (make-db:test-rec run_id: run-id testname: testname item_path: item-path state: state status: status)))
 		   db 
 		   "SELECT run_id,testname,item_path,state,status FROM tests WHERE id=?;" 
 		   test-id)))
     res))
 
@@ -2581,15 +2581,15 @@
     (db:delay-if-busy dbdat)
     (sqlite3:for-each-row
      (lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment shortdir attemptnum archived)
        ;;                 0    1       2      3      4        5       6      7        8     9     10      11          12          13       14     15        16
        ;;(set! res (cons (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment shortdir attemptnum archived)
-       (cons (make-db:test-rec id: id run-id: run-id testname: testname state: state status: status event_time: event-time
+       (set! res (cons (make-db:test-rec id: id run-id: run-id testname: testname state: state status: status event_time: event-time
        		host: host cpuload: cpuload diskfree: diskfree uname: uname rundir: rundir item_path: item-path
        		run_duration: run-duration final_logf: final-logf comment: comment shortdir: shortdir 
        		attemptnum: attemptnum archived: archived )
-		       res))
+		       res)))
      db
      (conc "SELECT " db:test-record-qry-selector " FROM tests WHERE state != 'DELETED' AND run_id=?;")
      run-id)
     res))
 
@@ -2700,11 +2700,11 @@
    #f
    (lambda (db)
      (let ((res #f))
        (sqlite3:for-each-row
 	(lambda (a . b)
-	  (set! res (cons (alist->db:test-rec (db:qry-gen-alist db:test-record-qry-selector (cons a b))) res)))
+	  (set! res (alist->db:test-rec (db:qry-gen-alist db:test-record-qry-selector (cons a b)))))
 	  ;;(set! res (apply vector a b)))
 	db
 	(conc "SELECT " db:test-record-qry-selector " FROM tests WHERE testname=? AND item_path=?;")
 	test-name item-path)
        res))))

Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -103,11 +103,11 @@
 		      (cons slot-val-pair res);;(print strhead valhead));;(cons (cons (string->symbol strhead) valhead) res))
 		      (loop (car strtail)(cdr strtail)(car valtail)(cdr valtail)(cons slot-val-pair res)))))))
 
 (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-test-name 	typed-rec))
+(define (db:test-get-testname   typed-rec)   (db:test-rec-test-name 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-cpu-load 	typed-rec))