Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -20,21 +20,22 @@
 SHELL=/bin/bash
 PREFIX=$(PWD)
 CSCOPTS=
 INSTALL=install
 SRCFILES = common.scm items.scm launch.scm runconfig.scm	\
-           server.scm configf.scm db.scm margs.scm		\
+           server.scm configf.scm db.scm		\
            process.scm runs.scm tests.scm genexample.scm	\
            http-transport.scm filedb.scm tdb.scm client.scm mt.scm	\
            ezsteps.scm lock-queue.scm sdb.scm rmt.scm api.scm		\
            subrun.scm archive.scm env.scm		\
-           diff-report.scm cgisetup/models/pgdb.scm
+           diff-report.scm
 
 # module source files
-MSRCFILES = dbmod.scm servermod.scm apimod.scm commonmod.scm rmtmod.scm ods.scm configfmod.scm transport.scm portlogger.scm tasks.scm 
+MSRCFILES = dbmod.scm servermod.scm apimod.scm commonmod.scm rmtmod.scm ods.scm configfmod.scm transport.scm portlogger.scm tasks.scm pgdb.scm margsmod.scm
 MOFILES = $(addprefix mofiles/,$(MSRCFILES:%.scm=%.o))
 MOIMPFILES = $(MSRCFILES:%.scm=%.import.o)
+
 # ftail.scm rmtmod.scm commonmod.scm removed
 # MSRCFILES = ducttape-lib.scm pkts.scm stml2.scm cookie.scm mutils.scm	\
 #             mtargs.scm commonmod.scm dbmod.scm adjutant.scm ulex.scm	\
 #             rmtmod.scm apimod.scm
 
@@ -112,18 +113,16 @@
 	env.o \
 	http-transport.o \
 	items.o \
 	launch.o \
 	lock-queue.o \
-	margs.o \
 	mt.o \
 	process.o \
 	rmt.o \
 	runconfig.o \
 	runs.o \
 	server.o \
-	tasks.o \
 	tdb.o \
 	tests.o \
 	subrun.o \
         ezsteps.o
 
@@ -189,11 +188,11 @@
 # # commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm
 # 
 # tests.o db.o launch.o runs.o dashboard-tests.o				\
 # # commonmod.o dashboard.o megatest.o tcmt.o apimod.o : megatest-fossil-hash.scm
 # 
-# tests.o db.o launch.o runs.o dashboard-tests.o				\
+# tests.o db.o launch.o runs.o dashboard-tests.o				
 
 dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o	\
 monitor.o dashboard.o archive.o megatest.o : db_records.scm megatest-fossil-hash.scm
 
 # dashboard.o : mofiles/apimod.o
@@ -200,11 +199,11 @@
 
 tests.o runs.o dashboard.o dashboard-tests.o dashboard-context-menu.o dashboard-main.o  : run_records.scm
 
 db.o ezsteps.o launch.o megatest.o monitor.o runs-for-ref.o runs.o tests.o : key_records.scm
 
-tests.o tasks.o dashboard-tasks.o : task_records.scm
+tests.o mofiles/tasks.o dashboard-tasks.o : task_records.scm
 
 runs.o : test_records.scm
 # api.o rmt.o db.o : mofiles/apimod.o mofiles/dbmod.o mofiles/rmtmod.o mofiles/ods.o
 
 mofiles/commonmod.o common.o megatest.o dashboard.o : megatest-fossil-hash.scm megatest-version.scm
@@ -461,18 +460,18 @@
 
 xterm : sd
 	(export BASEPATH=/tmp/$(USER)/basepath ; export PATH="$(PWD)/datashare-testing:$(PATH)" ; xterm &)
 
 datashare-testing/spublish : spublish.scm $(OFILES) megatest-version.scm
-	csc $(CSCOPTS) spublish.scm margs.o process.o common.o  -o datashare-testing/spublish
+	csc $(CSCOPTS) spublish.scm mofiles/margsmod.o process.o common.o  -o datashare-testing/spublish
 
 datashare-testing/sretrieve : sretrieve.scm $(OFILES) megatest-version.scm
-	csc $(CSCOPTS) sretrieve.scm margs.o process.o common.o  -o datashare-testing/sretrieve
+	csc $(CSCOPTS) sretrieve.scm mofiles/margsmod.o process.o common.o  -o datashare-testing/sretrieve
 
 
 datashare-testing/sauthorize : sauthorize.scm $(OFILES) megatest-version.scm
-	 csc $(CSCOPTS) sauthorize.scm margs.o process.o common.o  -o datashare-testing/sauthorize
+	 csc $(CSCOPTS) sauthorize.scm mofiles/margsmod.o process.o common.o  -o datashare-testing/sauthorize
 
 sauth-init:
 	mkdir -p  datashare-testing
 	rm  datashare-testing/sauthorize
 	rm  datashare-testing/sretrieve 
@@ -495,12 +494,12 @@
 	fi
 	if csi -ne '(use postgresql)';then \
 	   echo "(use postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\
 	fi
 
-portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o launch.o lock-queue.o margs.o mt.o mofiles/portlogger.o process.o rmt.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
-	csc $(CSCOPTS) portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o launch.o lock-queue.o margs.o mt.o mofiles/portlogger.o process.o rmt.o runconfig.o runs.o sdb.o server.o synchash.o tasks.o tdb.o tests.o tree.o
+portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o launch.o lock-queue.o mofiles/margsmod.o mt.o mofiles/portlogger.o process.o rmt.o runconfig.o runs.o sdb.o server.o synchash.o mofiles/tasks.o tdb.o tests.o tree.o
+	csc $(CSCOPTS) portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o filedb.o genexample.o gutils.o http-transport.o items.o launch.o lock-queue.o mofiles/margsmod.o mt.o mofiles/portlogger.o process.o rmt.o runconfig.o runs.o sdb.o server.o synchash.o mofiles/tasks.o tdb.o tests.o tree.o
 
 # create a pdf dot graphviz diagram from notations in rmt.scm
 rmt.pdf : rmt.scm
 	grep ';;DOT' rmt.scm | sed -e 's/.*;;DOT //' > rmt.dot;dot -Tpdf rmt.dot -o rmt.pdf
 

Index: apimod.scm
==================================================================
--- apimod.scm
+++ apimod.scm
@@ -19,19 +19,20 @@
 ;;======================================================================
 
 (declare (unit apimod))
 (declare (uses commonmod))
 (declare (uses dbmod))
-;; (declare (uses ulex))
+(declare (uses tasks))
 
 (module apimod
 	*
 	
 (import scheme chicken data-structures extras)
 (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69)
 (import commonmod)
 (import dbmod)
+(import tasks)
 
 ;; allow these queries through without starting a server
 ;;
 (define api:read-only-queries
   '(get-key-val-pairs

Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -30,10 +30,13 @@
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))
 (import dbmod)
+
+(declare (uses margsmod))
+(import margsmod)
 
 (include "common_records.scm")
 (include "db_records.scm")
 
 ;;======================================================================

Index: build.inc
==================================================================
--- build.inc
+++ build.inc
@@ -4,10 +4,11 @@
 #
 
 api.o : mofiles/apimod.o
 api.o : mofiles/commonmod.o
 api.o : mofiles/dbmod.o
+api.o : mofiles/tasks.o
 archive.o : mofiles/commonmod.o
 archive.o : mofiles/configfmod.o
 archive.o : mofiles/dbmod.o
 client.o : mofiles/commonmod.o
 client.o : mofiles/dbmod.o
@@ -21,10 +22,11 @@
 dashboard-context-menu.o : mofiles/commonmod.o
 dashboard-context-menu.o : mofiles/configfmod.o
 dashboard-context-menu.o : mofiles/dbmod.o
 dashboard-guimonitor.o : mofiles/commonmod.o
 dashboard-guimonitor.o : mofiles/dbmod.o
+dashboard-guimonitor.o : mofiles/tasks.o
 dashboard-tests.o : mofiles/commonmod.o
 dashboard-tests.o : mofiles/configfmod.o
 dashboard-tests.o : mofiles/dbmod.o
 dashboard.o : mofiles/apimod.o
 dashboard.o : mofiles/commonmod.o
@@ -58,18 +60,21 @@
 items.o : mofiles/configfmod.o
 launch.o : mofiles/commonmod.o
 launch.o : mofiles/configfmod.o
 launch.o : mofiles/dbmod.o
 lock-queue.o : mofiles/commonmod.o
+lock-queue.o : mofiles/tasks.o
 megatest.o : mofiles/apimod.o
 megatest.o : mofiles/commonmod.o
 megatest.o : mofiles/configfmod.o
 megatest.o : mofiles/dbmod.o
 megatest.o : mofiles/ods.o
 megatest.o : mofiles/rmtmod.o
 megatest.o : mofiles/servermod.o
 mofiles/apimod.o : mofiles/commonmod.o
+mofiles/apimod.o : mofiles/tasks.o
+mofiles/commonmod.o : mofiles/margsmod.o
 mofiles/configfmod.o : mofiles/commonmod.o
 mofiles/dbmod.o : mofiles/commonmod.o
 mofiles/dbmod.o : mofiles/configfmod.o
 mofiles/dbmod.o : mofiles/ods.o
 mofiles/dcommonmod.o : mofiles/commonmod.o
@@ -94,10 +99,11 @@
 mtut.o : mofiles/commonmod.o
 mtut.o : mofiles/configfmod.o
 newdashboard.o : mofiles/commonmod.o
 newdashboard.o : mofiles/configfmod.o
 newdashboard.o : mofiles/dbmod.o
+mofiles/pgdb.o : mofiles/margsmod.o
 process.o : mofiles/commonmod.o
 rmt.o : mofiles/apimod.o
 rmt.o : mofiles/commonmod.o
 rmt.o : mofiles/configfmod.o
 rmt.o : mofiles/dbmod.o
@@ -114,13 +120,14 @@
 server.o : mofiles/servermod.o
 subrun.o : mofiles/commonmod.o
 subrun.o : mofiles/configfmod.o
 subrun.o : mofiles/dbmod.o
 synchash.o : mofiles/dbmod.o
-tasks.o : mofiles/commonmod.o
-tasks.o : mofiles/configfmod.o
-tasks.o : mofiles/dbmod.o
+mofiles/tasks.o : mofiles/commonmod.o
+mofiles/tasks.o : mofiles/configfmod.o
+mofiles/tasks.o : mofiles/dbmod.o
+mofiles/tasks.o : mofiles/pgdb.o
 tcmt.o : mofiles/commonmod.o
 tdb.o : mofiles/commonmod.o
 tdb.o : mofiles/dbmod.o
 tdb.o : mofiles/ods.o
 tests.o : mofiles/commonmod.o

Index: cgisetup/models/pgdb.scm
==================================================================
--- cgisetup/models/pgdb.scm
+++ cgisetup/models/pgdb.scm
@@ -18,23 +18,25 @@
 
 ;;======================================================================
 
 (declare (unit pgdb))
 (declare (uses configf))
-
-;; I don't know how to mix compilation units and modules, so no module here.
-;;
-;; (module pgdb
-;;     (
-;;      open-pgdb
-;;      )
-;; 
-;; (import scheme)
-;; (import data-structures)
-;; (import chicken)
-
-(use typed-records (prefix dbi dbi:))
+(declare (uses configfmod))
+(declare (uses commonmod))
+(declare (uses margsmod))
+
+(module pgdb
+ *
+
+(import scheme)
+(import data-structures)
+(import chicken)
+(import commonmod)
+(import configfmod)
+(import margsmod)
+
+(import srfi-1 srfi-69 typed-records (prefix dbi dbi:))
 
 ;; given a configdat lookup the connection info and open the db
 ;;
 (define (pgdb:open configdat #!key (dbname #f)(dbispec #f))  
   (let ((pgconf (or dbispec
@@ -652,5 +654,6 @@
                         ((> i tab2-pages )
                         lst) 
                       (else 
 		  	(loop (+ i 1) (append   lst (list i)))))))
 
+)

Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -26,11 +26,10 @@
 
 (declare (unit client))
 
 (declare (uses common))
 (declare (uses db))
-(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -57,10 +57,13 @@
 (declare (uses configfmod))
 (import configfmod)
 
 (declare (uses servermod))
 (import servermod)
+
+(declare (uses margsmod))
+(import margsmod)
 
 (include "common_records.scm")
 
 ;;======================================================================
 ;; (require-library margs)

Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -17,16 +17,19 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
 
 (declare (unit commonmod))
+(declare (uses margsmod))
 
 (module commonmod
 	*
 	
 ;;(import scheme chicken data-structures extras files ports)
 (import scheme chicken)
+(import margsmod)
+
 (use data-structures extras files ports)
 (use 
   (prefix base64 base64:)
   (prefix sqlite3 sqlite3:) 
   (srfi 18)

Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -30,10 +30,13 @@
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses configfmod))
 (import configfmod)
+
+(declare (uses margsmod))
+(import margsmod)
 
 (include "common_records.scm")
 
 ;; return list (path fullpath configname)
 (define (find-config configname #!key (toppath #f))

Index: dashboard-guimonitor.scm
==================================================================
--- dashboard-guimonitor.scm
+++ dashboard-guimonitor.scm
@@ -33,10 +33,11 @@
 
 (declare (unit dashboard-guimonitor))
 (declare (uses common))
 (declare (uses db))
 (declare (uses tasks))
+(import tasks)
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -30,11 +30,13 @@
      matchable) ;; defstruct
 (import (prefix sqlite3 sqlite3:))
 
 
 (declare (uses common))
-(declare (uses margs))
+(declare (uses margsmod))
+(import margsmod)
+
 (declare (uses items))
 (declare (uses db))
 (declare (uses configf))
 (declare (uses process))
 (declare (uses launch))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -32,10 +32,12 @@
 
 (declare (unit db))
 (declare (uses common))
 (declare (uses client))
 (declare (uses mt))
+(declare (uses margsmod))
+(import margsmod)
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses configfmod))

Index: env.scm
==================================================================
--- env.scm
+++ env.scm
@@ -17,10 +17,13 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
 
 (declare (unit env))
+
+(declare (uses margsmod))
+(import margsmod)
 
 (declare (uses commonmod))
 (import commonmod)
 
 (use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -25,10 +25,14 @@
 (declare (unit ezsteps))
 (declare (uses db))
 (declare (uses common))
 (declare (uses items))
 (declare (uses runconfig))
+
+(declare (uses margsmod))
+(import margsmod)
+
 ;; (declare (uses sdb))
 ;; (declare (uses filedb))
 
 (declare (uses commonmod))
 (import commonmod)

Index: genexample.scm
==================================================================
--- genexample.scm
+++ genexample.scm
@@ -21,10 +21,13 @@
 (declare (unit genexample))
 (use posix regex matchable)
 
 (declare (uses commonmod))
 (import commonmod)
+
+(declare (uses margsmod))
+(import margsmod)
 
 (include "db_records.scm")
 
 (define genexample:example-logpro
 #<<EOF

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -42,13 +42,10 @@
 
 (declare (unit http-transport))
 
 (declare (uses common))
 (declare (uses db))
-;; (declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
-;; (declare (uses server))
-;; (declare (uses daemon))
 (declare (uses portlogger))
 (import portlogger)
 
 (declare (uses rmt))
 
@@ -64,10 +61,13 @@
 (declare (uses servermod))
 (import servermod)
 
 (declare (uses transport))
 (import transport)
+
+(declare (uses margsmod)])
+(import margsmod)
 
 (include "common_records.scm")
 (include "db_records.scm")
 ;; (include "js-path.scm")
 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -41,10 +41,13 @@
 (declare (uses configfmod))
 (import configfmod)
 
 (declare (uses dbmod))
 (import dbmod)
+
+(declare (uses margsmod))
+(import margsmod)
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")

Index: lock-queue.scm
==================================================================
--- lock-queue.scm
+++ lock-queue.scm
@@ -19,10 +19,11 @@
 (use (prefix sqlite3 sqlite3:) srfi-18)
 
 (declare (unit lock-queue))
 (declare (uses common))
 (declare (uses tasks))
+(import tasks)
 
 (declare (uses commonmod))
 (import commonmod)
 ;;======================================================================
 ;; attempt to prevent overlapping updates of rollup files by queueing

DELETED margs.scm
Index: margs.scm
==================================================================
--- margs.scm
+++ /dev/null
@@ -1,88 +0,0 @@
-;; Copyright 2007-2010, Matthew Welland.
-;;
-;; This file is part of Megatest.
-;; 
-;;     Megatest is free software: you can redistribute it and/or modify
-;;     it under the terms of the GNU General Public License as published by
-;;     the Free Software Foundation, either version 3 of the License, or
-;;     (at your option) any later version.
-;; 
-;;     Megatest is distributed in the hope that it will be useful,
-;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;     GNU General Public License for more details.
-;; 
-;;     You should have received a copy of the GNU General Public License
-;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
-
-
-(declare (unit margs))
-;; (declare (uses common))
-
-(define args:arg-hash (make-hash-table))
-
-(define (args:get-arg arg . default)
-  (if (null? default)
-      (hash-table-ref/default args:arg-hash arg #f)
-      (hash-table-ref/default args:arg-hash arg (car default))))
-
-(define (args:any? . args)
-  (not (null? (filter (lambda (x) x)
-		      (map args:get-arg args)))))
-
-(define (args:get-arg-from ht arg . default)
-  (if (null? default)
-      (hash-table-ref/default ht arg #f)
-      (hash-table-ref/default ht arg (car default))))
-
-(define (args:usage . args)
-  (if (> (length args) 0)
-      (apply print "ERROR: " args))
-  (if (string? help)
-      (print help)
-      (print "Usage: " (car (argv)) " ... "))
-  (exit 0))
-
- ;; one-of args defined
-(define (args:any-defined? . param)
-  (let ((res #f))
-    (for-each 
-     (lambda (arg)
-       (if (args:get-arg arg)(set! res #t)))
-     param)
-    res))
-
-;; args: 
-(define (args:get-args args params switches arg-hash num-needed)
-  (let* ((numargs (length args))
-	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
-    (if (< numargs (if adj-num-needed adj-num-needed 2))
-	(if (>= num-needed 1)
-	    (args:usage "No arguments provided")
-	    '())
-	(let loop ((arg (cadr args))
-		   (tail (cddr args))
-		   (remargs '()))
-	  (cond 
-	   ((member arg params) ;; args with params
-	    (if (< (length tail) 1)
-		(args:usage "param given without argument " arg)
-		(let ((val     (car tail))
-		      (newtail (cdr tail)))
-		  (hash-table-set! arg-hash arg val)
-		  (if (null? newtail) remargs
-		      (loop (car newtail)(cdr newtail) remargs)))))
-	   ((member arg switches)         ;; args with no params (i.e. switches)
-	    (hash-table-set! arg-hash arg #t)
-	    (if (null? tail) remargs
-		(loop (car tail)(cdr tail) remargs)))
-	   (else
-	    (if (null? tail)(append remargs (list arg)) ;; return the non-used args
-		(loop (car tail)(cdr tail)(append remargs (list arg))))))))
-    ))
-
-(define (args:print-args remargs arg-hash)
-  (print "ARGS: " remargs)
-  (for-each (lambda (arg)
-	      (print "   " arg "   " (hash-table-ref/default arg-hash arg #f)))
-	    (hash-table-keys arg-hash)))

ADDED   margsmod.scm
Index: margsmod.scm
==================================================================
--- /dev/null
+++ margsmod.scm
@@ -0,0 +1,99 @@
+;; Copyright 2007-2010, Matthew Welland.
+;;
+;; This file is part of Megatest.
+;; 
+;;     Megatest is free software: you can redistribute it and/or modify
+;;     it under the terms of the GNU General Public License as published by
+;;     the Free Software Foundation, either version 3 of the License, or
+;;     (at your option) any later version.
+;; 
+;;     Megatest is distributed in the hope that it will be useful,
+;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;     GNU General Public License for more details.
+;; 
+;;     You should have received a copy of the GNU General Public License
+;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
+
+
+(declare (unit margsmod))
+
+(module margsmod
+	*
+
+(import scheme chicken data-structures extras)	
+(import srfi-69 srfi-1)
+
+(define args:help #f)
+
+(define (args:set-help help)
+  (set! args:help help))
+  
+(define args:arg-hash (make-hash-table))
+
+(define (args:get-arg arg . default)
+  (if (null? default)
+      (hash-table-ref/default args:arg-hash arg #f)
+      (hash-table-ref/default args:arg-hash arg (car default))))
+
+(define (args:any? . args)
+  (not (null? (filter (lambda (x) x)
+		      (map args:get-arg args)))))
+
+(define (args:get-arg-from ht arg . default)
+  (if (null? default)
+      (hash-table-ref/default ht arg #f)
+      (hash-table-ref/default ht arg (car default))))
+
+(define (args:usage . args)
+  (if (> (length args) 0)
+      (apply print "ERROR: " args))
+  (if (string? args:help)
+      (print args:help)
+      (print "Usage: " (car (argv)) " ... "))
+  (exit 0))
+
+ ;; one-of args defined
+(define (args:any-defined? . param)
+  (let ((res #f))
+    (for-each 
+     (lambda (arg)
+       (if (args:get-arg arg)(set! res #t)))
+     param)
+    res))
+
+;; args: 
+(define (args:get-args args params switches arg-hash num-needed)
+  (let* ((numargs (length args))
+	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
+    (if (< numargs (if adj-num-needed adj-num-needed 2))
+	(if (>= num-needed 1)
+	    (args:usage "No arguments provided")
+	    '())
+	(let loop ((arg (cadr args))
+		   (tail (cddr args))
+		   (remargs '()))
+	  (cond 
+	   ((member arg params) ;; args with params
+	    (if (< (length tail) 1)
+		(args:usage "param given without argument " arg)
+		(let ((val     (car tail))
+		      (newtail (cdr tail)))
+		  (hash-table-set! arg-hash arg val)
+		  (if (null? newtail) remargs
+		      (loop (car newtail)(cdr newtail) remargs)))))
+	   ((member arg switches)         ;; args with no params (i.e. switches)
+	    (hash-table-set! arg-hash arg #t)
+	    (if (null? tail) remargs
+		(loop (car tail)(cdr tail) remargs)))
+	   (else
+	    (if (null? tail)(append remargs (list arg)) ;; return the non-used args
+		(loop (car tail)(cdr tail)(append remargs (list arg))))))))
+    ))
+
+(define (args:print-args remargs arg-hash)
+  (print "ARGS: " remargs)
+  (for-each (lambda (arg)
+	      (print "   " arg "   " (hash-table-ref/default arg-hash arg #f)))
+	    (hash-table-keys arg-hash)))
+)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -22,11 +22,13 @@
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 
 (declare (uses common))
 ;; (declare (uses megatest-version))
-(declare (uses margs))
+(declare (uses margsmod))
+(import margsmod)
+
 (declare (uses runs))
 (declare (uses launch))
 (declare (uses server))
 (declare (uses client))
 (declare (uses tests))
@@ -37,10 +39,13 @@
 
 (declare (uses tdb))
 (declare (uses mt))
 (declare (uses api))
 (declare (uses tasks)) ;; only used for debugging.
+(import tasks)
+(declare (uses tasks.import))
+
 (declare (uses env))
 (declare (uses diff-report))
 ;; (declare (uses ftail))
 ;; (import ftail)
 

Index: mtexec.scm
==================================================================
--- mtexec.scm
+++ mtexec.scm
@@ -26,11 +26,13 @@
    srfi-19  srfi-18 extras format pkts regex regex-case
      (prefix dbi dbi:)
      )
 
 ;; (declare (uses common))
-(declare (uses margs))
+(declare (uses margsmod))
+(import margsmod)
+
 (declare (uses configf))
 ;; (declare (uses rmt))
 
 (declare (uses configfmod))
 (import configfmod)

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -27,11 +27,13 @@
      (prefix dbi dbi:)
      (prefix sqlite3 sqlite3:)
      nanomsg)
 
 (declare (uses common))
-(declare (uses margs))
+(declare (uses margsmod))
+(import margsmod)
+
 (declare (uses configf))
 ;; (declare (uses rmt))
 
 (declare (uses commonmod))
 (import commonmod)

Index: newdashboard.scm
==================================================================
--- newdashboard.scm
+++ newdashboard.scm
@@ -28,11 +28,12 @@
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors ;; defstruct
      (prefix dbi dbi:))
 
 (declare (uses common))
 (declare (uses megatest-version))
-(declare (uses margs))
+(declare (uses margsmod))
+(import margsmod)
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))

ADDED   pgdb.scm
Index: pgdb.scm
==================================================================
--- /dev/null
+++ pgdb.scm
@@ -0,0 +1,1 @@
+(include "cgisetup/models/pgdb.scm")

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -42,10 +42,13 @@
 (import dbmod)
 
 (declare (uses servermod))
 (import servermod)
 
+(declare (uses margsmod))
+(import margsmod)
+	 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "test_records.scm")

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -25,16 +25,15 @@
 
 (declare (unit server))
 
 (declare (uses common))
 (declare (uses db))
-(declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
-;; (declare (uses synchash))
+(declare (uses margsmod))
+(import margsmod)
+
 (declare (uses http-transport))
-;;(declare (uses rpc-transport))
 (declare (uses launch))
-;; (declare (uses daemon))
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))

Index: sharedat.scm
==================================================================
--- sharedat.scm
+++ sharedat.scm
@@ -37,11 +37,11 @@
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
 ;; (import (prefix sqlite3 sqlite3:))
 ;; 
 (declare (uses configf))
 ;; (declare (uses tree))
-(declare (uses margs))
+(declare (uses margsmod))
 ;; (declare (uses dcommon))
 ;; (declare (uses launch))
 ;; (declare (uses gutils))
 ;; (declare (uses db))
 ;; (declare (uses synchash))

Index: spublish.scm
==================================================================
--- spublish.scm
+++ spublish.scm
@@ -24,11 +24,11 @@
 (use format)
 (use sql-de-lite srfi-1 posix regex regex-case srfi-69)
 
 ;(declare (uses configf))
 ;; (declare (uses tree))
-(declare (uses margs))
+(declare (uses margsmod))
 
 (include "megatest-version.scm")
 (include "megatest-fossil-hash.scm")
 ;;; please create this file before using sautherise. For sample file is avaliable sample-sauth-paths.scm. 
 (include "sauth-paths.scm")

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -17,20 +17,15 @@
 ;;
 
 ;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
 
 (declare (unit tasks))
-;; (declare (uses db))
-;; (declare (uses rmt))
-;; (declare (uses common))
-;; (declare (uses pgdb))
-
-;; (import pgdb) ;; pgdb is a module
-
+(declare (uses pgdb))
 (declare (uses commonmod))
 (declare (uses configfmod))
 (declare (uses dbmod))
+(declare (uses margsmod))
 
 (module tasks
 *
 
 (import scheme chicken data-structures extras)
@@ -37,10 +32,12 @@
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format)
 (import (prefix sqlite3 sqlite3:))
 (import commonmod)
 (import configfmod)
 (import dbmod)
+(import margsmod)
+(import pgdb)
 
 (include "task_records.scm")
 ;; (include "db_records.scm")
 
 ;;======================================================================

Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -26,13 +26,15 @@
 (use srfi-1 posix srfi-69 srfi-18 regex defstruct)
 
 (use trace)
 ;; (trace-call-sites #t)
 
-(declare (uses margs))
 (declare (uses rmt))
 (declare (uses common))
+(declare (uses margsmod))
+(import margsmod)
+
 ;; (declare (uses megatest-version))
 
 (declare (uses commonmod))
 (import commonmod)
 

Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -30,10 +30,12 @@
 (declare (unit tdb))
 (declare (uses common))
 (declare (uses client))
 (declare (uses mt))
 (declare (uses db))
+(declare (uses margsmod))
+(import margsmod)
 
 (declare (uses commonmod))
 (import commonmod)
 
 (declare (uses dbmod))

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -28,10 +28,12 @@
 (declare (uses tdb))
 (declare (uses common))
 (declare (uses items))
 (declare (uses runconfig))
 (declare (uses server))
+(declare (uses margsmod))
+(import margsmod)
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
 (import (prefix sqlite3 sqlite3:))
 (require-library stml)
 

Index: tree.scm
==================================================================
--- tree.scm
+++ tree.scm
@@ -25,11 +25,11 @@
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69)
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit tree))
-(declare (uses margs))
+(declare (uses margsmod))
 (declare (uses launch))
 ;; (declare (uses megatest-version))
 (declare (uses gutils))
 (declare (uses db))
 (declare (uses server))