Index: launchmod.scm
==================================================================
--- launchmod.scm
+++ launchmod.scm
@@ -1153,16 +1153,10 @@
 					(getenv "MT_TEST_NAME")
 					(if (and itempath
 						 (not (equal? itempath "")))
 					    (conc "/" itempath)
 					    ""))))))
-(define (set-item-env-vars itemdat)
-  (for-each (lambda (item)
-	      (debug:print 2 *default-log-port* "setenv " (car item) " " (cadr item))
-	      (setenv (car item) (cadr item)))
-	    itemdat))
-
 
 ;; TODO: deprecate me in favor of ezsteps.scm
 ;;
 (define (ezsteps:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)
   (let* ((stepname       (car ezstep))  ;; do stuff to run the step