@@ -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