@@ -114,10 +114,11 @@
    set-ss                    : set state/status
    archive                   : compress and move test data to archive disk
    kill                      : stop tests or entire runs
    db                        : database utilities
    areas, contours, setup    : show areas, contours or setup section from megatest.config
+   gendot                    : generate a graphviz dot file from pkts.
 
 Contour actions:
    process                   : runs import, rungen and dispatch 
 			     
 Selectors 		     
@@ -996,14 +997,16 @@
 		 (print "No section \"" (car remargs) "\" found")))
 	   (print "ERROR: list requires section parameter; areas, setup or contours")))
       ((gendot)
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
 	      (mtconf    (car mtconfdat)))
-	 (with-queue-db
+	 (common:load-pkts-to-db mtconf use-lt: #t) ;; need to NOT do this by default ...
+	 (common:with-queue-db
 	  mtconf
 	  (lambda (pktsdirs pktsdir conn)
-	    (make-report "out.dot" conn '())))))
+	    (make-report "out.dot" conn common:pkts-spec '(action ipaddr port) ))
+	  use-lt: #t)))
       ((db)
        (if (null? remargs)
 	   (print "ERROR: missing sub command for db command")
 	   (let ((subcmd (car remargs)))
 	     (case (string->symbol subcmd)
@@ -1043,8 +1046,8 @@
 	  (repl)
 	  (load (args:get-arg "-load")))))
 
 #|
 (define mtconf (car (simple-setup #f)))
-(define dat (with-queue-db mtconf (lambda (conn)(get-pkts conn '()))))
+(define dat (common:with-queue-db mtconf (lambda (conn)(get-pkts conn '()))))
 (pp (pkts#flatten-all dat '((cmd . ((parent . P)(url . M)))(runtype . ((parent . P)))) 'id 'group-id 'uuid 'parent 'pkt-type 'pkt 'processed))
 |#