@@ -257,11 +257,12 @@
   -debug N|N,M,O...       : enable debug 0-N or N and M and O ...
   -debug-noprop N|M,M,O...: enable debug but do not propagate to subprocesses via MT_DEBUG
   -config fname           : override the megatest.config file with fname
   -append-config fname    : append fname to the megatest.config file
   -import-sexpr fname     : import a sexpr file (use -list-runs % -dumpmode sexpr to create)
-
+  -regen-testfiles        : regenerate scripts and logpro files from testconfig, run in test context
+  
 Utilities
   -env2file fname         : write the environment to fname.csh and fname.sh
   -envcap a               : save current variables labeled as context 'a' in file envdat.db
   -envdelta a-b           : output enviroment delta from context a to context b to -o fname
                             set the output mode with -dumpmode csh, bash or ini
@@ -466,10 +467,11 @@
 			"-local"         ;; run some commands using local db access
 			"-generate-html"
 			"-generate-html-structure" 
 			"-list-run-time"
                         "-list-test-time"
+			"-regen-testfiles"
 			
 			;; misc queries
 			"-list-disks"
 			"-list-targets"
 			"-list-db-targets"
@@ -2120,10 +2122,25 @@
 		  (paths    (tests:test-get-paths-matching keys target (args:get-arg "-test-files"))))
 	     (for-each (lambda (path)
 			 (print path))
 		       paths))))))
 
+;;======================================================================
+;; Utils for test areas
+;;======================================================================
+
+(if (args:get-arg "-regen-testfiles")
+    (if (getenv "MT_TEST_RUN_DIR")
+	(begin
+	  (launch:setup)
+	  (change-directory (getenv "MT_TEST_RUN_DIR"))
+	  (let* ((testname (getenv "MT_TEST_NAME"))
+		 (itempath (getenv "MT_ITEMPATH")))
+	    (launch:extract-scripts-logpro (getenv "MT_TEST_RUN_DIR") testname itempath #f))
+	  (set! *didsomething* #t))
+	(debug:print 0 *default-log-port* "ERROR: Must run -regen-testfiles in a test environment (i.e. test xterm from dashboard)")))
+		 	  
 ;;======================================================================
 ;; Archive tests
 ;;======================================================================
 ;; Archive tests matching target, runname, and testpatt
 (if (equal? (args:get-arg "-archive") "replicate-db")