@@ -1775,11 +1775,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