@@ -779,10 +779,11 @@
 ;; based code.
 ;;======================================================================
 
 ;; register a test run with the db
 (define (runs:register-run db keys keyvallst runname state status user)
+  (debug:print 3 "runs:register-run, keys: " keys " keyvallst: " keyvallst " runname: " runname " state: " state " status: " status " user: " user)
   (let* ((keystr    (keys->keystr keys))
 	 (comma     (if (> (length keys) 0) "," ""))
 	 (andstr    (if (> (length keys) 0) " AND " ""))
 	 (valslots  (keys->valslots keys)) ;; ?,?,? ...
 	 (keyvals   (map cadr keyvallst))
@@ -1217,14 +1218,16 @@
 	      (testexists   (and (file-exists? test-configf)(file-read-access? test-configf)))
 	      ;; read configs with tricks turned off (i.e. no system)
 	      (test-conf    (if testexists (read-config test-configf #f #f)(make-hash-table))))
 	 (runs:update-test_meta db test-name test-conf)))
      test-names)))
-	 
+
 ;; This could probably be refactored into one complex query ...
-(define (runs:rollup-run db keys)
-  (let* ((new-run-id      (register-run db keys))
+(define (runs:rollup-run db keys keyvallst runname user) ;; was target, now keyvallst
+  (debug:print 4 "runs:rollup-run, keys: " keys " keyvallst: " keyvallst " :runname " runname " user: " user)
+  (let* (; (keyvalllst      (keys:target->keyval keys target))
+	 (new-run-id      (runs:register-run db keys keyvallst runname "new" "n/a" user))
 	 (prev-tests      (test:get-matching-previous-test-run-records db new-run-id "%" "%"))
 	 (curr-tests      (db-get-tests-for-run db new-run-id "%" "%" '() '()))
 	 (curr-tests-hash (make-hash-table)))
     (db:update-run-event_time db new-run-id)
     ;; index the already saved tests by testname and itempath in curr-tests-hash