@@ -260,10 +260,11 @@
 	   (run-one-test db test-name)
 	   (print "WARNING: Max running jobs exceeded, current number running: " num-running 
 		  ", max_concurrent_jobs: " max-concurrent-jobs))))
    test-names))
 
+;; VERY INEFFICIENT! Move stuff that should be done once up to calling proc
 (define (run-one-test db test-name)
   (print "Launching test " test-name)
   (let* ((test-path    (conc *toppath* "/tests/" test-name))
 	 (test-configf (conc test-path "/testconfig"))
 	 (testexists   (and (file-exists? test-configf)(file-read-access? test-configf)))
@@ -281,10 +282,11 @@
 	       (items       (hash-table-ref/default test-conf "items" #f))
 	       (allitems    (item-assoc->item-list items))
 	       (run-id      (register-run db keys)) ;;  test-name)))
 	       (runconfigf  (conc  *toppath* "/runconfigs.config")))
 	  ;; (print "items: ")(pp allitems)
+	  (set-megatest-env-vars db run-id) ;; these may be needed by the launching process
 	  (if (args:get-arg "-m")
 	      (db:set-comment-for-run db run-id (args:get-arg "-m")))
 	  (let loop ((itemdat (car allitems))
 		     (tal     (cdr allitems)))
 	    ;; (lambda (itemdat) ;;; ((ripeness "overripe") (temperature "cool") (season "summer"))