@@ -253,11 +253,11 @@
 					   (db:get-value-by-header run header x))
 					 keynames) "/")
 		"/"
 		(db:get-value-by-header run header "runname"))
 	 (let ((run-id (db:get-value-by-header run header "id")))
-	   (let ((tests (db-get-tests-for-run db run-id testpatt itempatt)))
+	   (let ((tests (db-get-tests-for-run db run-id testpatt itempatt #f #f)))
 	     ;; Each test
 	     (for-each 
 	      (lambda (test)
 		(format #t
 			"  Test: ~25a State: ~15a Status: ~15a Runtime: ~5@as Time: ~22a Host: ~10a\n"