@@ -66,10 +66,11 @@
 	      keyvals)
     ;; Set up various and sundry known vars here
     (setenv "MT_RUN_AREA_HOME" toppath)
     (setenv "MT_RUNNAME" runname)
     (setenv "MT_TARGET"  target)
+    (setenv "MT_TESTSUITENAME" (common:get-testsuite-name))
     (set! envdat (append 
 		  envdat
 		  (list (list "MT_RUN_AREA_HOME" toppath)
 			(list "MT_RUNNAME"       runname)
 			(list "MT_TARGET"        target))))