Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -196,11 +196,11 @@
 	  (debug:print 4 lin)
 	  (rmt:csv->test-data run-id test-id lin)
 	  (loop (read-line)))))
   ;; roll up the current results.
   ;; FIXME: Add the status too 
-  (rmt:test-data-rollup test-id #f))
+  (rmt:test-data-rollup run-id test-id #f))
 
 (define (tdb:get-prev-tol-for-test tdb test-id category variable)
   ;; Finish me?
   (values #f #f #f))