@@ -118,11 +118,11 @@
 	 (header      (db:get-header allruns))
 	 (runs        (db:get-rows   allruns))
 	 (result      '())
 	 (maxtests    0))
     (for-each (lambda (run)
-		(let* ((run-id   (db-get-value-by-header run header "id"))
+		(let* ((run-id   (db:get-value-by-header run header "id"))
 		       (tests    (db-get-tests-for-run *db* run-id testnamepatt itemnamepatt))
 		       (key-vals (get-key-vals *db* run-id)))
 		  (if (> (length tests) maxtests)
 		      (set! maxtests (length tests)))
 		  (set! result (cons (vector run tests key-vals) result))))
@@ -402,11 +402,11 @@
     (update-buttons uidat *num-runs* *num-tests*)
     (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
 		   (hash-table-ref/default *searchpatts* "test-name" "%")
 		   (hash-table-ref/default *searchpatts* "item-name" "%"))
     (thread-resume! other-thread)
-    (loop (+ i 1))))
+    (loop i)))
 
 (define *job* #f)
 
 (cond 
  ((args:get-arg "-run")
@@ -417,11 +417,11 @@
 	  (print "ERROR: runid is not a number " (args:get-arg "-run"))
 	  (exit 1)))))
  ((args:get-arg "-test")
     (let ((testid (string->number (args:get-arg "-test"))))
     (if testid
-	(set! *job* (lambda (thr)(examine-test *db* testid)))
+	(set! *job* (lambda (thr)(examine-test *db* testid thr)))
 	(begin
 	  (print "ERROR: testid is not a number " (args:get-arg "-test"))
 	  (exit 1)))))
  (else
   (set! uidat (make-dashboard-buttons *num-runs* *num-tests* dbkeys))