@@ -86,10 +86,11 @@
     (let ((runname  (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
       (if runname
 	  (setenv "MT_RUNNAME" runname)
 	  (debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))
     (setenv "MT_RUN_AREA_HOME" *toppath*)
+    (setenv "MT_TESTSUITENAME" (common:get-testsuite-name))
     ;; if a testname and itempath are available set the remaining appropriate variables
     (if testname (setenv "MT_TEST_NAME" testname))
     (if itempath (setenv "MT_ITEMPATH"  itempath))
     (if (and testname link-tree)
 	(setenv "MT_TEST_RUN_DIR" (conc (getenv "MT_LINKTREE")  "/"