Index: cgisetup/models/pgdb.scm
==================================================================
--- cgisetup/models/pgdb.scm
+++ cgisetup/models/pgdb.scm
@@ -26,11 +26,11 @@
 (use typed-records (prefix dbi dbi:))
 
 ;; given a configdat lookup the connection info and open the db
 ;;
 (define (pgdb:open configdat #!key (dbname #f))  
-  (let ((pgconf (configf:lookup configdat "ext-sync" (or dbname "pgdb"))))
+  (let ((pgconf (or (configf:lookup configdat "ext-sync" (or dbname "pgdb")) (args:get-arg "-pgsync"))))
     (if pgconf
 	(let* ((confdat (map (lambda (conf-item)
 			       (let ((parts (string-split conf-item ":")))
 				 (if (> (length parts) 1)
 				     (let ((key (car parts))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -289,10 +289,11 @@
                         "-src-target"
                         "-src-runname"
                         "-diff-email"
 			"-sync-to"
 			"-prefix-target"			
+			"-pgsync"
                         "-diff-html"
 			)
  		 (list  "-h" "-help" "--help"
 			"-manual"
 			"-version"