@@ -145,10 +145,11 @@
 	      (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 ()
+		 (runs:set-megatest-env-vars run-id) ;;; WARNING: This sets a lot of vars!!!!
 		 (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")))