Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -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 pkts regex regex-case
      (prefix dbi dbi:)
+     (prefix sqlite3 sqlite3:)
      nanomsg)
 
 (declare (uses common))
 (declare (uses megatest-version))
 (declare (uses margs))
@@ -841,12 +842,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 +1429,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))