Wrong number of arguments calling ledger-complete-at-point on date

[Aaron Zeng]

Example error:

Wrong number of arguments: (((dates (26140 42560) (25658 8512)) (now 26130 61652 191446 0)) (_string _predicate _all) (list (concat (ledger-format-date (cl-find-if #'(lambda (date) (not (time-less-p now date))) dates)) (and (= (point) (line-end-position)) " ")))), 0

The expected behavior should be that various dates (same day number in current
month, or previous month) are offered for completion.