Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -13,11 +13,11 @@
      format dot-locking csv-xml z3 ;; sql-de-lite
      hostinfo md5 message-digest typed-records directory-utils stack
      matchable regex posix (srfi 18) extras ;; tcp 
      (prefix nanomsg nmsg:)
      (prefix sqlite3 sqlite3:)
-     pkts
+     pkts (prefix dbi dbi:)
      )
 
 (declare (unit common))
 
 (include "common_records.scm")

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -821,18 +821,20 @@
 						`((message  . ,(conc "fossil:" branch "-neverrun"))
 						  (runname  . ,(conc runname "-" node))
 						  (runtrans . ,runtrans)
 						  (areas    . ,areas)
 						  ;; (target   . ,runkey)
+						  (action   . ,action)
                                                   ))
 				 (if (> datetime last-run) ;; change time is greater than last-run time
 				     (push-run-spec torun contour runkey
 						    `((message  . ,(conc "fossil:" branch "-" node))
 						      (runname  . ,(conc runname "-" node))
 						      (runtrans . ,runtrans)
 						      (areas    . ,areas)
 						      ;; (target   . ,runkey)
+						      (action   . ,action)
                                                       ))))
 			     (print "Got datetime=" datetime " node=" node))))
 		       val-alist))
 
 		     ;; sensor looking for one or more files newer than reference