@@ -633,5 +633,18 @@
 		   ;; 	 (debug:print 1 "Removing run dir " runpath)
 		   ;; 	 (system (conc "rmdir -p " runpath))))
 		   ))))
 	 ))
      runs)))
+
+;;======================================================================
+;; Routines for manipulating runs
+;;======================================================================
+
+(define (runs:rollup-run db keys n)
+  (let* ((new-run-id   (register-run db keys))
+	 (similar-runs (db:get-similar-runs db keys))
+	 (tests-n-days (db:get-tests-n-days db similar-runs)))
+    (for-each 
+     (lambda (test-id)
+       (db:rollup-test db run-id test-id))
+     tests-n-days)))