Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2671,11 +2671,11 @@
 	 (test-status-sql-filt (dboard:rdat-test-status-sql-filt rdat))  ;; not used yet
 	 (tests                (rmt:get-tests-for-run-state-status run-id
 						      testname-sql-filt
 						      last-update                          ;; last-update
 						      )))
-    (debug:print 0 *default-log-port* "Got " (length tests) " tests")
+    (debug:print 0 *default-log-port* "Got " (length tests) " tests for run-id " run-id " testname-sql-filt " testname-sql-filt " and last-update " last-update)
     (length tests)))
 
 (define (new-runs-updater commondat rdat)
   (let* ((runnum           (dboard:rdat-runnum          rdat)))
     (if (eq? runnum 0)(dashboard:update-runs-data rdat))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2909,11 +2909,11 @@
 				)))
     (debug:print-info 8 *default-log-port* "db:get-tests-for-run qry=" qry)
     (db:with-db dbstruct run-id #f
 		(lambda (db)
 		  (sqlite3:fold-row
-		   (lambda (id testname item-path state status event-time run-duration)
+		   (lambda (res id testname item-path state status event-time run-duration)
 		     ;;            id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment
 		     (cons (vector id run-id testname state status event-time  ""     -1      -1       ""    "-"  item-path run-duration  "-"         "-") res))
 		   '()
 		   db 
 		   qry

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -558,11 +558,11 @@
   ;;    (begin
   ;;	(debug:print-error 0 *default-log-port* "rmt:get-tests-for-run called with bad run-id=" run-id)
   ;;	(print-call-chain (current-error-port))
   ;;	'())))
 
-(define (rmt:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
+(define (rmt:get-tests-for-run-state-status run-id testpatt last-update)
   (rmt:send-receive 'get-tests-for-run-state-status run-id (list run-id testpatt last-update)))
 
 ;; get stuff via synchash 
 (define (rmt:synchash-get run-id proc synckey keynum params)
   (rmt:send-receive 'synchash-get run-id (list run-id proc synckey keynum params)))