Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -82,11 +82,19 @@
 		   (debug:print 2 "setenv " (key:get-fieldname key) " " val)
 		   (setenv (key:get-fieldname key) val))
 		 db 
 		 (conc "SELECT " (key:get-fieldname key) " FROM runs WHERE id=?;")
 		 run-id))
-	      keys)))
+	      keys)
+    ;; Lets use this as an opportunity to put MT_RUNNAME in the environment
+    (sqlite3:for-each-row
+     (lambda (runname)
+       (setenv "MT_RUNNAME" runname))
+     db
+     "SELECT runname FROM runs WHERE id=?;"
+     run-id)
+    ))
 
 (define (set-item-env-vars itemdat)
   (for-each (lambda (item)
 	      (debug:print 2 "setenv " (car item) " " (cadr item))
 	      (setenv (car item) (cadr item)))
@@ -211,11 +219,11 @@
 	(let loop ((hed (car test-names))
 		   (tal (cdr test-names)))         ;; 'return-procs tells the config reader to prep running system but return a proc
 	  (let* ((config  (test:get-testconfig hed 'return-procs))
 		 (waitons (string-split (let ((w (config-lookup config "requirements" "waiton")))
 					  (if w w "")))))
-;;		 (items   (items:get-items-from-config config)))
+	    ;; (items   (items:get-items-from-config config)))
 	    (if (not (hash-table-ref/default test-records hed #f))
 		(hash-table-set! test-records
 				 hed (vector hed     ;; 0
 					     config  ;; 1
 					     waitons ;; 2