@@ -214,11 +214,11 @@
 			    ", expected: " expected " tol: " tol " units: " units " status: " status " comment: " comment " type: " type)
 
 	       (if (and (or (not expected)(equal? expected ""))
 			(or (not tol)     (equal? expected ""))
 			(or (not units)   (equal? expected "")))
-		   (let-values (((new-expected new-tol new-units)(tdb:get-prev-tol-for-test db test-id category variable)))
+		   (let-values (((new-expected new-tol new-units)(tdb:get-prev-tol-for-test tdb test-id category variable)))
 			       (set! expected new-expected)
 			       (set! tol      new-tol)
 			       (set! units    new-units)))
 
 	       (debug:print 4 "AFTER:  category: " category " variable: " variable " value: " value 
@@ -263,11 +263,11 @@
 (define (tdb:load-test-data test-id #!key (work-area #f))
   (let loop ((lin (read-line)))
     (if (not (eof-object? lin))
 	(begin
 	  (debug:print 4 lin)
-	  (tdb:csv->test-data db test-id lin work-area: work-area)
+	  (tdb:csv->test-data test-id lin work-area: work-area)
 	  (loop (read-line)))))
   ;; roll up the current results.
   ;; FIXME: Add the status to 
   (tdb:test-data-rollup db test-id #f work-area: work-area))
 
@@ -316,11 +316,11 @@
 	  ;;             ELSE status
 	  ;;         END WHERE id=?;"
 	  ;;  test-id test-id test-id test-id)
 	  ))))
 
-(define (tdb:get-prev-tol-for-test test-id category variable)
+(define (tdb:get-prev-tol-for-test tdb test-id category variable)
   ;; Finish me?
   (values #f #f #f))
 
 ;;======================================================================
 ;; S T E P S