@@ -464,11 +464,11 @@
   ;; get test-id
   ;; then get test record
   (if testdat
       (let* ((test-id      (hash-table-ref/default (dboard:data-get-curr-test-ids *data*) window-id #f))
 	     (test-data    (hash-table-ref/default testdat test-id #f))
-	     (run-id       (db:test-get-run_id test-data))
+	     (run-id       (db:test-run_id test-data))
 	     (targ/runname (hash-table-ref/default (dboard:data-get-run-keys *data*) 
 						   run-id
 						   '()))
 	     (target       (if (null? targ/runname) "" (string-intersperse (reverse (cdr (reverse targ/runname))) "/")))
 	     (runname      (if (null? targ/runname) "" (car (cdr targ/runname))))
@@ -493,32 +493,32 @@
 			(set! rownum (+ rownum 1))))
 		    vals)))
 	       (list 
 		(list run-info-matrix
 		      (if test-id
-			  (list (db:test-get-run_id test-data)
+			  (list (db:test-run_id test-data)
 				target
 				runname
 				"n/a")
 			  (make-list 4 "")))
 		(list test-info-matrix
 		      (if test-id
 			  (list test-id
-				(db:test-get-testname test-data)
-				(db:test-get-item-path test-data)
-				(db:test-get-state    test-data)
-				(db:test-get-status   test-data)
-				(seconds->string (db:test-get-event_time test-data))
-				(db:test-get-comment  test-data))
+				(db:test-testname test-data)
+				(db:test-item-path test-data)
+				(db:test-state    test-data)
+				(db:test-status   test-data)
+				(seconds->string (db:test-event_time test-data))
+				(db:test-comment  test-data))
 			  (make-list 7 "")))
 		(list test-run-matrix
 		      (if test-id
-			  (list (db:test-get-host     test-data)
-				(db:test-get-uname    test-data)
-				(db:test-get-diskfree test-data)
-				(db:test-get-cpuload  test-data)
-				(seconds->hr-min-sec (db:test-get-run_duration test-data)))
+			  (list (db:test-host     test-data)
+				(db:test-uname    test-data)
+				(db:test-diskfree test-data)
+				(db:test-cpuload  test-data)
+				(seconds->hr-min-sec (db:test-run_duration test-data)))
 			  (make-list 5 "")))
 		))
 	      (dcommon:populate-steps steps-dat steps-matrix))))))
 		;;(list meta-dat-matrix
 		;;      (if test-id