@@ -23,10 +23,11 @@
 (define (toplevel-command . a) #f)
 
 (use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
    srfi-19  srfi-18 extras format regex regex-case
      (prefix dbi dbi:)
+     (prefix sqlite3 sqlite3:)
      nanomsg)
 
 (declare (uses common))
 (declare (uses megatest-version))
 (declare (uses margs))
@@ -230,10 +231,11 @@
     ("-msg"             . M)
     ("-start-dir"       . S)
     ("-set-vars"        . v)
     ("-config"          . h)
     ("-time-out"        . u)
+    ("-archive"         . b)
     ))
 (define *switch-keys*
   '(
     ("-h"               . #f)
     ("-help"            . #f)
@@ -257,11 +259,11 @@
     (kill-run    . "-kill-runs")
     (kill-rerun  . "-kill-rerun")
     (lock        . "-lock")
     (unlock      . "-unlock")
     (sync        . "")
-    (archive     . "-archive")
+    (archive     . "")
     (set-ss      . "-set-state-status")
     (remove      . "-remove-runs")))
 
 ;; manually keep this list updated from the keys to
 ;; the case *action* near the end of this file.
@@ -841,12 +843,11 @@
 	      (contours  (configf:get-section mtconf "contours"))
 	      (torun     (make-hash-table)) ;; target => ( ... info ... )
 	      (rgentargs (hash-table-keys rgconf))) ;; these are the targets registered for automatically triggering
 
 	 ;;(print "rgentargs: " rgentargs)
-	 
-	 (for-each
+	  (for-each
 	  (lambda (runkey)
 	    (let* ((keydats   (configf:get-section rgconf runkey)))
 	      (for-each
 	       (lambda (sense) ;; these are the sense rules
 		 (let* ((key        (car sense))
@@ -1429,10 +1430,11 @@
 	      (areas     (configf:get-section mtconf "areas"))
 	      (contours  (configf:get-section mtconf "contours"))
 	      (pkts      (find-pkts pdb '(cmd) '()))
 	      (torun     (make-hash-table)) ;; target => ( ... info ... )
 	      (rgentargs (hash-table-keys rgconf))) ;; these are the targets registered for automatically triggering
+         (sqlite3:set-busy-handler! (dbi:db-conn pdb) (sqlite3:make-busy-timeout 10000))
 	 (for-each
 	  (lambda (pktdat)
 	    (let* ((pkta    (alist-ref 'apkt pktdat))
 		   (action  (alist-ref 'A pkta))
 		   (cmdline (pkt->cmdline pkta))