@@ -926,12 +926,12 @@
 	       (testpatt    (if (args:get-arg "-testpatt") 
 			        (args:get-arg "-testpatt") 
 			        "%"))
 	       (keys        (db:get-keys dbstruct))
 	       ;; (runsda   t  (db:get-runs dbstruct runpatt #f #f '()))
-	       (runsdat     (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
-			           	 #f #f))
+	       (runsdat     (rmt:get-runs-by-patt keys (or runpatt "%") (common:args-get-target)
+			           	 #f #f '("id" "runname" "state" "status" "owner" "event_time" "comment")))
 	       (runstmp     (db:get-rows runsdat))
 	       (header      (db:get-header runsdat))
 	       (runs        (if (and (not (null? runstmp))
 				     (args:get-arg "-since"))
 				(let ((changed-ids (db:get-changed-run-ids (string->number (args:get-arg "-since")))))
@@ -950,13 +950,13 @@
 	       (dmode       (let ((d (args:get-arg "-dumpmode")))
 			      (if d (string->symbol d) #f)))
 	       (data        (make-hash-table))
 	       (fields-spec (if (args:get-arg "-fields")
 				(extract-fields-constraints (args:get-arg "-fields"))
-				'(("runs"  "id" "target"   "runname")
-				  (cons "tests"  db:test-record-fields) ;; "id" "testname" "test_path")
-				  ("steps" "id" "stepname"))))
+				(list (list "runs"  "id" "target"   "runname")
+				      (cons "tests"  db:test-record-fields) ;; "id" "testname" "test_path")
+				      (list "steps" "id" "stepname"))))
 	       (runs-spec   (let ((r (alist-ref "runs"  fields-spec equal?)))
 			      (if (and r (not (null? r))) r (list "id"))))
 	       (tests-spec  (let ((t (alist-ref "tests" fields-spec equal?)))
 			      (if (and t (null? t)) ;; all fields
 				  db:test-record-fields
@@ -990,11 +990,11 @@
 			 ;; (print "[" targetstr "]"))))
 			 (if (not dmode)(print targetstr))))
 		   (let* ((run-id  (db:get-value-by-header run header "id"))
 			  (runname (db:get-value-by-header run header "runname")) 
 			  (tests   (if tests-spec
-				       (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc 
+				       (rmt:get-tests-for-run run-id testpatt '() '() #f #f #f 'testname 'asc 
 							     ;; use qryvals if test-spec provided
 							     (if tests-spec
 								 (string-intersperse adj-tests-spec ",")
 								 ;; db:test-record-fields
 								 #f))