Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -60,10 +60,14 @@
 $(PREFIX)/share/docs/megatest_manual.html : docs/manual/megatest_manual.html
 	mkdir -p $(PREFIX)/share/docs
 	$(INSTALL) docs/manual/megatest_manual.html $(PREFIX)/share/docs/megatest_manual.html
 	for png in $(PNGFILES);do $(INSTALL) docs/manual/$$png $(PREFIX)/share/docs/$$png;done
 
+$(PREFIX)/share/db/mt-pg.sql : mt-pg.sql
+	mkdir -p $(PREFIX)/share/db
+	$(INSTALL) mt-pg.sql $(PREFIX)/share/db/mt-pg.sql
+
 #multi-dboard : multi-dboard.scm $(OFILES) $(GOFILES)
 #	csc $(CSCOPTS) $(OFILES) $(GOFILES) multi-dboard.scm -o multi-dboard
 
 # 
 # $(PREFIX)/bin/revtagfsl : utils/revtagfsl.scm
@@ -188,11 +192,12 @@
 	$(INSTALL) dboard $(PREFIX)/bin/.$(ARCHSTR)/dboard
 
 install : $(PREFIX)/bin/.$(ARCHSTR) $(PREFIX)/bin/.$(ARCHSTR)/mtest $(PREFIX)/bin/megatest \
           $(PREFIX)/bin/.$(ARCHSTR)/dboard $(PREFIX)/bin/dashboard $(HELPERS) $(PREFIX)/bin/nbfake \
 	  $(PREFIX)/bin/nbfind $(PREFIX)/bin/loadrunner $(PREFIX)/bin/viewscreen $(PREFIX)/bin/mt_xterm \
-	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun $(PREFIX)/bin/mtutil
+	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun $(PREFIX)/bin/mtutil \
+          $(PREFIX)/share/db/mt-pg.sql
 
 $(PREFIX)/bin/.$(ARCHSTR) : 
 	mkdir -p $(PREFIX)/bin/.$(ARCHSTR)
 	mkdir -p $(PREFIX)/bin/.$(ARCHSTR)/lib
 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -873,10 +873,15 @@
 	(begin
 	  (debug:print-error 0 *default-log-port* "failed to find the top path to your Megatest area.")
           ;;(exit 1)
           #f
           ))
+    ;; if have -append-config then read and append here
+    (let ((cfname (args:get-arg "-append-config")))
+      (if (and cfname
+	       (file-read-access? cfname))
+	  (read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
     *toppath*))
 
 (define (get-best-disk confdat testconfig)
   (let* ((disks   (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
 		      (hash-table-ref/default confdat "disks" #f)))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -163,10 +163,12 @@
   -repl                   : start a repl (useful for extending megatest)
   -load file.scm          : load and run file.scm
   -mark-incompletes       : find and mark incomplete tests
   -ping run-id|host:port  : ping server, exit with 0 if found
   -debug N|N,M,O...       : enable debug 0-N or N and M and O ...
+  -config fname           : override the megatest.config file with fname
+  -append-config fname    : append fname to the megatest.config file
 
 Utilities
   -env2file fname         : write the environment to fname.csh and fname.sh
   -envcap fname=context   : save current variables labeled as context in file fname
   -refdb2dat refdb        : convert refdb to sexp or to format specified by -dumpmode
@@ -204,17 +206,17 @@
 
 Called as " (string-intersperse (argv) " ") "
 Version " megatest-version ", built from " megatest-fossil-hash ))
 
 ;;  -gui                    : start a gui interface
-;;  -config fname           : override the runconfig file with fname
 
 ;; process args
 (define remargs (args:get-args 
 		 (argv)
 		 (list  "-runtests"  ;; run a specific test
 			"-config"    ;; override the config file name
+			"-append-config"
 			"-execute"   ;; run the command encoded in the base64 parameter
 			"-step"
 			"-target"
 			"-reqtarg"
 			":runname"

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -19,10 +19,11 @@
 
 (declare (uses common))
 (declare (uses megatest-version))
 (declare (uses margs))
 (declare (uses configf))
+(declare (uses rmt))
 
 (include "megatest-fossil-hash.scm")
 
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc")))
   (if (file-exists? debugcontrolf)
@@ -51,10 +52,11 @@
    remove                  : remove runs
    rerun                   : register action for processing
    set-ss                  : set state/status
    archive                 : compress and move test data to archive disk
    kill                    : stop tests or entire runs
+   db                      : database utilities
 
 Contour actions:
    process                 : runs import, rungen and dispatch 
 
 Selectors 
@@ -77,10 +79,13 @@
   -log logfile             : send stdout and stderr to logfile
   -repl                    : start a repl (useful for extending megatest)
   -load file.scm           : load and run file.scm
   -debug N|N,M,O...        : enable debug messages 0-N or N and M and O ...
 
+Utility
+  pgschema                 : emit postgresql schema; do \"mtutil db pgschema | psql -d mydb\"
+
 Examples:
 
 # Start a megatest run in the area \"mytests\"
 mtutil -area mytests -action run -target v1.63/aa3e -mode-patt MYPATT -tag-expr quick
 
@@ -175,10 +180,11 @@
 (if (and (not (null? remargs))
 	 (not (or
 	       (args:get-arg "-runstep")
 	       (args:get-arg "-envcap")
 	       (args:get-arg "-envdelta")
+	       (member *action* '("db"))   ;; very loose checks on db.
 	       )))
     (debug:print-error 0 *default-log-port* "Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv))  " ")))
 
 (if (or (args:any? "-h" "help" "-help" "--help")
 	(member *action* '("-h" "-help" "--help" "help")))
@@ -520,11 +526,23 @@
 			 (generate-run-pkts mtconf toppath)
 			 (load-pkts-to-db mtconf)
 			 (dispatch-commands mtconf toppath)))
 	   ((import)   (load-pkts-to-db mtconf)) ;; import pkts
 	   ((rungen)   (generate-run-pkts mtconf toppath))
-	   ((dispatch) (dispatch-commands mtconf toppath)))))))
+	   ((dispatch) (dispatch-commands mtconf toppath)))))
+      ((db)
+       (if (null? remargs)
+	   (print "ERROR: missing sub command for db command")
+	   (let ((subcmd (car remargs)))
+	     (case (string->symbol subcmd)
+	       ((pgschema)
+		(let* ((install-home (common:get-install-area))
+		       (schema-file  (conc install-home "/share/db/mt-pg.sql")))
+		  (if (file-exists? schema-file)
+		      (system (conc "/bin/cat " schema-file)))))
+	       ((junk)
+		(rmt:get-keys))))))))
 
 (if (or (args:get-arg "-repl")
 	(args:get-arg "-load"))
     (begin
       (import extras) ;; might not be needed