@@ -989,11 +989,14 @@
 	       (if db-targets
 		   (if (not (hash-table-ref/default seen targetstr #f))
 		       (begin
 			 (hash-table-set! seen targetstr #t)
 			 ;; (print "[" targetstr "]"))))
-			 (if (not dmode)(print targetstr))))
+			 (if (not dmode)
+			     (print targetstr)
+			     (hash-table-set! data "targets" (cons targetstr (hash-table-ref/default data "targets" '())))
+			     )))
 		   (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 
 							     ;; use qryvals if test-spec provided