@@ -54,10 +54,18 @@
     ((get-runs)                     (apply db:get-runs db params))
     ((get-runs-by-patt)             (apply db:get-runs-by-patt db params))
     ((lock/unlock-run)              (apply db:lock/unlock-run db params))
     ((update-run-event_time)        (apply db:update-run-event_time db params))
 
+    ;; STEPS
+    ((teststep-set-status!)         (apply db:teststep-set-status! db params))
+
+    ;; TEST DATA
+    ((test-data-rollup)             (apply db:test-data-rollup db params))
+    ((csv->test-data)               (apply db:csv->test-data db params))
+    ((get-steps-data)               (apply db:get-steps-data db params))
+
     ;; MISC
     ((login)                        (apply db:login db params))
     ((general-call)                 (let ((stmtname   (car params))
 					  (realparams (cdr params)))
 				      (db:general-call db stmtname realparams)))