@@ -17,10 +17,11 @@
 (declare (uses items))
 (declare (uses runconfig))
 (declare (uses tests))
 (declare (uses server))
 (declare (uses runs))
+(declare (uses filedb))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
@@ -112,11 +113,11 @@
 ;;  T R I G G E R S
 ;;======================================================================
 
 (define (mt:process-triggers test-id newstate newstatus)
   (let* ((test-dat      (mt:lazy-get-test-info-by-id test-id))
-	 (test-rundir   (sdb:qry 'getstr (db:test-get-rundir test-dat)))
+	 (test-rundir   (filedb:get-path *fdb* (db:test-get-rundir test-dat)))
 	 (test-name     (db:test-get-testname test-dat))
 	 (tconfig       #f)
 	 (state         (if newstate  newstate  (db:test-get-state  test-dat)))
 	 (status        (if newstatus newstatus (db:test-get-status test-dat))))
     (if (and (file-exists? test-rundir)