Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -534,16 +534,19 @@
 
 # portlogger-example : portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o synchash.o tasks.o tdb.o tests.o tree.o
 #	csc $(CSCOPTS) portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o sync-hash.o tasks.o tdb.o tests.o tree.o
 
 unitdeps.dot : *scm ./utils/plot-uses Makefile
-	./utils/plot-uses todot commonmod.import,mtargs.import,mtargs,debugprint *.scm > unitdeps.dot
+	./utils/plot-uses todot commonmod.import,mtargs.import,mtargs,debugprint $$(ls *.scm|grep -v import) > unitdeps.dot
 
 # ./utils/plot-uses todot commonmod,portlogger,stml2,debugprint,mtargs apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm mtmod.scm processmod.scm rmtmod.scm servermod.scm tcp-transportmod.scm > uses.dot ; dot uses.dot -Tpdf -o uses.pdf
 
-uses.pdf : *scm utils/plot-uses
-	./utils/plot-uses todot commonmod,portlogger,stml2,debugprint,mtargs apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm mtmod.scm processmod.scm rmtmod.scm servermod.scm tcp-transportmod.scm testsmod.scm > uses.dot
+#  apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm mtmod.scm processmod.scm rmtmod.scm servermod.scm tcp-transportmod.scm testsmod.scm
+
+uses.pdf : *scm utils/plot-uses  Makefile
+	./utils/plot-uses todot portlogger,stml2,debugprint,mtargs *mod.scm launch.scm > uses-in.dot
+	tred uses-in.dot > uses.dot
 	dot uses.dot -Tpdf -o uses.pdf
 
 unitdeps.pdf : unitdeps.dot
 	dot unitdeps.dot -Tpdf -o unitdeps.pdf
 

Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -175,19 +175,19 @@
 (define (tdb:step-stable-set-start!     vec val)(vector-set! vec 1 val))
 (define (tdb:step-stable-set-end!       vec val)(vector-set! vec 2 val))
 (define (tdb:step-stable-set-status!    vec val)(vector-set! vec 3 val))
 (define (tdb:step-stable-set-runtime!   vec val)(vector-set! vec 4 val))
 
-;; The data structure for handing off requests via wire
-(define (make-cdb:packet)(make-vector 6))
-(define (cdb:packet-get-client-sig   vec)    (vector-ref  vec 0))
-(define (cdb:packet-get-qtype        vec)    (vector-ref  vec 1))
-(define (cdb:packet-get-immediate    vec)    (vector-ref  vec 2))
-(define (cdb:packet-get-query-sig    vec)    (vector-ref  vec 3))
-(define (cdb:packet-get-params       vec)    (vector-ref  vec 4))
-(define (cdb:packet-get-qtime        vec)    (vector-ref  vec 5))
-(define (cdb:packet-set-client-sig!  vec val)(vector-set! vec 0 val))
-(define (cdb:packet-set-qtype!       vec val)(vector-set! vec 1 val))
-(define (cdb:packet-set-immediate!   vec val)(vector-set! vec 2 val))
-(define (cdb:packet-set-query-sig!   vec val)(vector-set! vec 3 val))
-(define (cdb:packet-set-params!      vec val)(vector-set! vec 4 val))
-(define (cdb:packet-set-qtime!       vec val)(vector-set! vec 5 val))
+;; ;; The data structure for handing off requests via wire
+;; (define (make-cdb:packet)(make-vector 6))
+;; (define (cdb:packet-get-client-sig   vec)    (vector-ref  vec 0))
+;; (define (cdb:packet-get-qtype        vec)    (vector-ref  vec 1))
+;; (define (cdb:packet-get-immediate    vec)    (vector-ref  vec 2))
+;; (define (cdb:packet-get-query-sig    vec)    (vector-ref  vec 3))
+;; (define (cdb:packet-get-params       vec)    (vector-ref  vec 4))
+;; (define (cdb:packet-get-qtime        vec)    (vector-ref  vec 5))
+;; (define (cdb:packet-set-client-sig!  vec val)(vector-set! vec 0 val))
+;; (define (cdb:packet-set-qtype!       vec val)(vector-set! vec 1 val))
+;; (define (cdb:packet-set-immediate!   vec val)(vector-set! vec 2 val))
+;; (define (cdb:packet-set-query-sig!   vec val)(vector-set! vec 3 val))
+;; (define (cdb:packet-set-params!      vec val)(vector-set! vec 4 val))
+;; (define (cdb:packet-set-qtime!       vec val)(vector-set! vec 5 val))