@@ -89,10 +89,11 @@
   -rollup                 : fill run (set by :runname)  with latest test(s) from
                             prior runs with same keys
   -rename-run <runb>      : rename run (set by :runname) to <runb>, requires keys
   -update-meta            : update the tests metadata for all tests
   -extract-ods            : extract an open document spreadsheet from the database
+  -env2file fname         : write the environment to fname.csh and fname.sh
 
 Helpers
   -runstep stepname  ...  : take remaining params as comand and execute as stepname
                             log will be in stepname.log. Best to put command in quotes
   -logpro file            : with -exec apply logpro file to stepname.log, creates
@@ -137,10 +138,11 @@
 			":expected"
 			":tol"
 			":units"
 			;; misc
 			"-extract-ods"
+			"-env2file"
 			"-debug" ;; for *verbosity* > 2
 			) 
 		 (list  "-h"
 		        "-force"
 		        "-xterm"
@@ -177,10 +179,19 @@
 (set! *verbosity* (cond
 		   ((args:get-arg "-debug")(string->number (args:get-arg "-debug")))
 		   ((args:get-arg "-v")    2)
 		   ((args:get-arg "-q")    0)
 		   (else                   1)))
+
+;;======================================================================
+;; Misc general calls
+;;======================================================================
+
+(if (args:get-arg "-env2file")
+    (begin
+      (save-environment-as-files (args:get-arg "-env2file"))
+      (set! *didsomething* #t)))
 
 ;;======================================================================
 ;; Remove old run(s)
 ;;======================================================================