@@ -18,11 +18,11 @@
 (declare (uses runconfig))
 (declare (uses tests))
 (declare (uses server))
 (declare (uses runs))
 (declare (uses rmt))
-(declare (uses filedb))
+;; (declare (uses filedb))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
@@ -127,12 +127,12 @@
 ;;  T R I G G E R S
 ;;======================================================================
 
 (define (mt:process-triggers run-id test-id newstate newstatus)
   (let* ((test-dat      (rmt:get-test-info-by-id run-id test-id))
-	 (test-rundir   (rmt:sdb-qry 'getstr ;; (filedb:get-path *fdb*
-				 (db:test-get-rundir test-dat))) ;; )
+	 (test-rundir   ;; (rmt:sdb-qry 'getstr ;; (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 test-rundir   ;; #f means no dir set yet