diff --git a/src/business/business-reports/aging.scm b/src/business/business-reports/aging.scm index ee08318b5e..325d4dba35 100644 --- a/src/business/business-reports/aging.scm +++ b/src/business/business-reports/aging.scm @@ -301,12 +301,8 @@ (define (setup-query query account date) (define (date-copy date) (cons (car date) (cdr date))) - (let ((begindate (date-copy date))) + (let ((begindate (make-zdate))) ;Set begindate to the start of the Epoch ; (gnc:debug "Account: " account) - (set! begindate (decdate begindate NinetyDayDelta)) - (set! begindate (decdate begindate NinetyDayDelta)) - (set! begindate (decdate begindate NinetyDayDelta)) - (set! begindate (decdate begindate NinetyDayDelta)) ;XXX - 360 days!?! (gnc:debug "begindate" begindate) (gnc:debug "date" date) (qof-query-set-book query (gnc-get-current-book))