   "Return a form that is true for every DAY skipping SKIP, starting on START.
 For example every second Friday, regardless of month."
   (let ((start-day (nth 6 (decode-time (eval start-date)))))
-    (if (eq start-day day-of-week)  ;; good, can proceed
+     (if (eq start-day day-of-week)  ;; good, can proceed
 	`(if (zerop (mod (- (time-to-days date) ,(time-to-days (eval start-date))) ,(* skip 7)))
 	     t
 	     nil)



(defun ledger-schedule-list-upcoming-xacts (candidate-items early horizon)
  "Search CANDIDATE-ITEMS for xacts that occur within the perios today - EARLY  to today + HORIZON"
  (let ((start-date (time-subtract (current-time) (days-to-time early)))
	test-date items)
    (loop for day from 0 to (+ early horizon) by 1 do


(defun ledger-schedule-test-setup ()
  (setq auto-items 
	(ledger-schedule-scan-transactions ledger-schedule-file)))


(defun ledger-schedule-test-predict ()
