Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2258,11 +2258,13 @@
 		(db:with-db
 		 dbstruct
 		 run-id
 		 #t
 		 (lambda (db)
-		   (sqlite3:execute db qry newstate newstatus run-id testname)))))
+		   (sqlite3:execute db qry newstate newstatus run-id testname)
+		   (mt:process-triggers run-id test-id newstate newstatus)
+		   ))))
 	    testnames))
 
 ;; speed up for common cases with a little logic
 ;; NB// Ultimately this will be deprecated in deference to mt:test-set-state-status-by-id
 ;;
@@ -2829,11 +2831,12 @@
   (let ((dbdat  (db:get-db dbstruct run-id)))
     (if (member state '("LAUNCHED" "REMOTEHOSTSTART"))
 	(db:general-call dbdat 'set-test-start-time (list test-id)))
     (if msg
 	(db:general-call dbdat 'state-status-msg (list state status msg test-id))
-	(db:general-call dbdat 'state-status     (list state status test-id)))))
+	(db:general-call dbdat 'state-status     (list state status test-id)))
+     (mt:process-triggers run-id test-id state status)))
 
 ;; call with state = #f to roll up with out accounting for state/status of this item
 ;;
 (define (db:roll-up-pass-fail-counts dbstruct run-id test-name item-path state status)
   (if (not (equal? item-path ""))

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -6,11 +6,11 @@
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 
-(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils)
+(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils call-with-environment-variables)
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit mt))
 (declare (uses db))
 (declare (uses common))
@@ -140,28 +140,33 @@
 	 (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
 	     (file-exists? test-rundir)
 	     (directory? test-rundir))
-	(begin
-	  (push-directory test-rundir)
-	  (set! tconfig (mt:lazy-read-test-config test-name))
-	  (pop-directory)
-	  (for-each (lambda (trigger)
-		      (let ((cmd  (configf:lookup tconfig "triggers" trigger))
-			    (logf (conc  test-rundir "/last-trigger.log")))
-			(if cmd
-			    ;; Putting the commandline into ( )'s means no control over the shell. 
-			    ;; stdout and stderr will be caught in the NBFAKE or mt_launch.log files
-			    ;; or equivalent. No need to do this. Just run it?
-			    (let ((fullcmd (conc cmd " " test-id " " test-rundir " " trigger "&")))
-			      (debug:print-info 0 "TRIGGERED on " trigger ", running command " fullcmd)
-			      (process-run fullcmd)))))
-		    (list
-		     (conc state "/" status)
-		     (conc state "/")
-		     (conc "/" status)))))))
+	(call-with-environment-variables
+	 (list (cons "MT_TEST_NAME" test-name)
+	       (cons "MT_TEST_RUN_DIR" test-rundir)
+	       (cons "MT_ITEMPATH"     (db:test-get-item-path test-dat)))
+	 (lambda ()
+	   (push-directory test-rundir)
+	   (set! tconfig (mt:lazy-read-test-config test-name))
+	   (for-each (lambda (trigger)
+		       (let ((cmd  (configf:lookup tconfig "triggers" trigger))
+			     (logf (conc  test-rundir "/last-trigger.log")))
+			 (if cmd
+			     ;; Putting the commandline into ( )'s means no control over the shell. 
+			     ;; stdout and stderr will be caught in the NBFAKE or mt_launch.log files
+			     ;; or equivalent. No need to do this. Just run it?
+			     (let ((fullcmd (conc cmd " " test-id " " test-rundir " " trigger "&")))
+			       (debug:print-info 0 "TRIGGERED on " trigger ", running command " fullcmd)
+			       (process-run fullcmd)))))
+		     (list
+		      (conc state "/" status)
+		      (conc state "/")
+		      (conc "/" status)))
+	   (pop-directory))
+	  ))))
 
 ;;======================================================================
 ;;  S T A T E   A N D   S T A T U S   F O R   T E S T S 
 ;;======================================================================