Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1788,23 +1788,32 @@
 ;; expand a complex cron string to a list of cron strings
 ;;
 ;;  x/y   => x, x+y, x+2y, x+3y while x+Ny<max_for_field
 ;;  a,b,c => a, b ,c
 ;;
+;;   NOTE: with flatten a lot of the crud below can be factored down.
+;;
 (define (common:cron-expand cron-str)
   (if (list? cron-str)
-      (map common:cron-expand cron-str)
+      (flatten
+       (fold (lambda (x res)
+	       (if (list? x)
+		   (let ((newres (map common:cron-expand x)))
+		     (append x newres))
+		   (cons x res)))
+	     '()
+	     cron-str)) ;; (map common:cron-expand cron-str))
       (let ((cron-items (string-split cron-str))
 	    (slash-rx   (regexp "(\\d+)/(\\d+)"))
 	    (comma-rx   (regexp ".*,.*"))
 	    (max-vals   '((min        . 60)
 			  (hour       . 24)
 			  (dayofmonth . 28) ;;; BUG!!!! This will be a bug for some combinations
 			  (month      . 12)
 			  (dayofweek  . 7))))
 	(if (< (length cron-items) 5) ;; bad spec
-	    `(,cron-str)              ;; just return the string, something downstream will fix it
+	    cron-str ;; `(,cron-str)              ;; just return the string, something downstream will fix it
 	    (let loop ((hed  (car cron-items))
 		       (tal  (cdr cron-items))
 		       (type 'min)
 		       (type-tal '(hour dayofmonth month dayofweek))
 		       (res  '()))
@@ -1812,16 +1821,25 @@
 		  hed
 		(slash-rx ( _ base incr ) (let* ((basen          (string->number base))
 						 (incrn          (string->number incr))
 						 (expanded-vals  (common:expand-cron-slash basen incrn (alist-ref type max-vals)))
 						 (new-list-crons (fold (lambda (x myres)
-									 (cons (conc (string-intersperse res " ") " " x " " (string-intersperse tal " "))
+									 (cons (conc (if (null? res)
+											 ""
+											 (conc (string-intersperse res " ") " "))
+										     x " " (string-intersperse tal " "))
 									       myres))
 								       '() expanded-vals)))
-					    (print "new-list-crons: " new-list-crons)
-					    new-list-crons))
-;;					    (map common:cron-expand (map common:cron-expand new-list-crons))))
+					    ;; (print "new-list-crons: " new-list-crons)
+					    ;; (fold (lambda (x res)
+					    ;; 	    (if (list? x)
+					    ;; 		(let ((newres (map common:cron-expand x)))
+					    ;; 		  (append x newres))
+					    ;; 		(cons x res)))
+					    ;; 	  '()
+					    (flatten (map common:cron-expand new-list-crons))))
+		;;					    (map common:cron-expand (map common:cron-expand new-list-crons))))
 		(else (if (null? tal)
 			  cron-str
 			  (loop (car tal)(cdr tal)(car type-tal)(cdr type-tal)(append res (list hed)))))))))))
 		      
 	    
@@ -1831,11 +1849,11 @@
 ;; 0-59    0-23   1-31       1-12   0-6          ### NOTE: dayofweek does not include 7
 ;;
 ;;  #t => yes, run the job
 ;;  #f => no, do not run the job
 ;;
-(define (common:cron-event cron-str now-seconds-in last-done) ;; ref-seconds = #f is NOW. 
+(define (common:cron-event cron-str now-seconds-in last-done) ;; ref-seconds = #f is NOW.
   (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)))
@@ -1908,10 +1926,20 @@
 			 (set! is-in before))
 		     ))
 	       (set! before moment))
 	     (sort (hash-table-keys all-times) <))
 	    is-in)))))
+
+(define (common:extended-cron  cron-str now-seconds-in last-done)
+  (let ((expanded-cron (common:cron-expand cron-str)))
+    (let loop ((hed (car expanded-cron))
+	       (tal (cdr expanded-cron)))
+      (if (cron-event hed now-seconds-in last-done)
+	  #t
+	  (if (null? tal)
+	      #f
+	      (loop (car tal)(cdr tal)))))))
 
 ;;======================================================================
 ;; C O L O R S
 ;;======================================================================
       

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -517,11 +517,11 @@
 			  (print "ERROR: bad sense spec \"" (string-intersperse sense " ") "\" params: " val-alist)
 			  (let* ((run-name (alist-ref 'run-name val-alist))
 				 (target   (alist-ref 'target   val-alist))
 				 (crontab  (alist-ref 'cron     val-alist))
 				 (action   (alist-ref 'action   val-alist))
-				 (need-run (common:cron-event crontab #f last-run))
+				 (need-run (common:extended-cron crontab #f last-run))
 				 (runname  std-runname)) ;; (conc "sched" (time->string (seconds->local-time (current-seconds)) "%M%H%d")))))
 			    (print "last-run: " last-run " need-run: " need-run)
 			    (if need-run
 				(push-run-spec torun contour runkey
 							  `((message . ,(conc ruletype ":" (string-intersperse (string-split (alist-ref 'cron val-alist)) "-")))