Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -80,11 +80,11 @@
   -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\"
+ db 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
@@ -512,11 +512,11 @@
 	 ;;  (lambda (key)
 	 ;;    (if (not (member key *legal-params*))
 	 ;; 	(hash-table-delete! adjargs key))) ;; we need to delete any params intended for mtutil
 	 ;;  (hash-table-keys adjargs))
 	 (let-values (((uuid pkt)
-		       (command-line->pkt *action* adjargs)))
+		       (command-line->pkt *action* adjargs #f)))
 	   (write-pkt pktsdir uuid pkt))))
       ((dispatch import rungen process)
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
 	      (mtconf    (car mtconfdat))
 	      (toppath   (configf:lookup mtconf "dyndat" "toppath")))