Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1702,11 +1702,11 @@
   (let* ((cron-items     (map string->number (string-split cron-str)))
 	 (now-seconds    (or now-seconds-in (current-seconds)))
 	 (now-time       (seconds->local-time now-seconds))
 	 (last-done-time (seconds->local-time last-done))
 	 (all-times      (make-hash-table)))
-    (print "cron-items: " cron-items "(length cron-items): " (length cron-items))
+    ;; (print "cron-items: " cron-items "(length cron-items): " (length cron-items))
     (if (not (eq? (length cron-items) 5)) ;; don't even try to figure out junk strings
 	#f
 	(match-let (((     cmin chour cdayofmonth cmonth    cdayofweek)
 		     cron-items)
 		    ;; 0     1    2        3         4    5      6

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -19,10 +19,11 @@
 
 (declare (uses common))
 (declare (uses megatest-version))
 (declare (uses margs))
 (declare (uses configf))
+(declare (uses dbmodule))
 
 (include "megatest-fossil-hash.scm")
 
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc")))
   (if (file-exists? debugcontrolf)
@@ -283,11 +284,11 @@
 	 (mtconf    (if mtconfdat (car mtconfdat) #f)))
     ;; we set some dynamic data in a section called "dyndata"
     (if mtconf
 	(begin
 	  (configf:section-var-set! mtconf "dyndat" "toppath" start-dir)))
-    (print "TOPPATH: " (configf:lookup mtconf "dyndat" "toppath"))
+    ;; (print "TOPPATH: " (configf:lookup mtconf "dyndat" "toppath"))
     mtconfdat))
 
 
 ;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.
 

Index: runconfigs.config
==================================================================
--- runconfigs.config
+++ runconfigs.config
@@ -13,7 +13,13 @@
 # day of month   1-31
 # month          1-12 (or names, see below)
 # day of week    0-7 (0 or 7 is Sun, or use names)
 
 # every friday at midnight run all
-all:scheduled       auto    0 0 0 0 5
+# all:scheduled       auto/run    0 0 0 0 5
+# quick:scheduled     auto/run    47 * * * *
+# for now:
 quick:scheduled     auto    47 * * * *
+
+# aclean = archive all but 2, clean all but 5
+# quick:scheduled     auto/aclean=2/5 47 * * * *
+quick:scheduled     auto 47 * * * *