diff --git a/gnucash/report/business-reports/owner-report.scm b/gnucash/report/business-reports/owner-report.scm index d71664229a..6c956d5df7 100644 --- a/gnucash/report/business-reports/owner-report.scm +++ b/gnucash/report/business-reports/owner-report.scm @@ -748,8 +748,8 @@ (end-date (gnc:time64-end-day-time (gnc:date-option-absolute-time (opt-val gnc:pagename-general optname-to-date)))) - (book (gnc-account-get-book account)) - (date-format (if (not (null? book)) (gnc:options-fancy-date book))) + (book (gnc-get-current-book)) + (date-format (gnc:options-fancy-date book)) (type (opt-val "__reg" "owner-type")) (owner-descr (owner-string type)) (date-type (opt-val gnc:pagename-general optname-date-driver)) diff --git a/gnucash/report/locale-specific/us/taxtxf-de_DE.scm b/gnucash/report/locale-specific/us/taxtxf-de_DE.scm index f0a0ab85c1..6557dd0f1c 100644 --- a/gnucash/report/locale-specific/us/taxtxf-de_DE.scm +++ b/gnucash/report/locale-specific/us/taxtxf-de_DE.scm @@ -505,11 +505,7 @@ (validate (reverse (gnc-account-get-children-sorted (gnc-get-current-root-account)))))) - (book (if selected-accounts - (gnc-account-get-book (if (pair? selected-accounts) - (car selected-accounts) - selected-accounts)) - #f)) + (book (gnc-get-current-book)) (generations (if (pair? selected-accounts) (apply max (map (lambda (x) (num-generations x 1)) selected-accounts))