Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -149,12 +149,11 @@
 	    ;; STEPS
 	    ((teststep-set-status!)         (apply db:teststep-set-status! dbstruct params))
 
 	    ;; TEST DATA
 	    ((test-data-rollup)             (apply db:test-data-rollup dbstruct params))
-	    ;; unfinished and unused
-	    ;; ((csv->test-data)               (apply db:csv->test-data dbstruct params))
+	    ((csv->test-data)               (apply db:csv->test-data dbstruct params))
 
 	    ;; MISC
 	    ((sync-inmem->db)               (let ((run-id (car params)))
 					      (db:sync-touched dbstruct run-id force-sync: #t)))
 	    ((mark-incomplete)              (apply db:find-and-mark-incomplete dbstruct params))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2696,11 +2696,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 tdb test-id category variable)))
+	     (let-values (((new-expected new-tol new-units)(tdb:get-prev-tol-for-test #f 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 

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -671,14 +671,12 @@
   (rmt:send-receive 'testmeta-update-field #f (list test-name fld val)))
 
 (define (rmt:test-data-rollup run-id test-id status)
   (rmt:send-receive 'test-data-rollup run-id (list run-id test-id status)))
 
-;; Unfinished and unused
-;;
-;; (define (rmt:csv->test-data run-id test-id csvdata)
-;;   (rmt:send-receive 'csv->test-data run-id (list run-id test-id csvdata)))
+(define (rmt:csv->test-data run-id test-id csvdata)
+  (rmt:send-receive 'csv->test-data run-id (list run-id test-id csvdata)))
 
 ;;======================================================================
 ;;  T A S K S
 ;;======================================================================
 

Index: tests/unittests/misc.scm
==================================================================
--- tests/unittests/misc.scm
+++ tests/unittests/misc.scm
@@ -195,12 +195,11 @@
   (test #f '() (rmt:read-test-data run-id test-id categorypatt work-area: work-area))
   (test #f #t (begin (rmt:testmeta-add-record testname) #t))
   (test #f (vector 1 "atest" "" "" "" "" "" "" "" "" "default") (rmt:testmeta-get-record testname))
   (test #f #t (begin (rmt:testmeta-update-field test-name fld val) #t))
   (test #f #t (rmt:test-data-rollup run-id test-id status))
-  ;; disabled as the function is unfinished and unused
-  ;; (test #f #f (rmt:csv->test-data run-id test-id csvdata))
+  (test #f #t (begin (rmt:csv->test-data run-id test-id csvdata) #t))
   (test #f '() (rmt:tasks-find-task-queue-records target runname testpatt statepatt action-patt))
   (test #f #t (begin (rmt:tasks-add "action" owner target runname testpatt "params") #t))
   (test #f #t (begin (rmt:tasks-set-state-given-param-key param-key newstate) #t))
   (test #f #t (begin (rmt:test-set-state-status-by-id run-id test-id newstate newstatus newcomment) #t))
 ;;