diff --git a/gnucash/report/report-system/report-utilities.scm b/gnucash/report/report-system/report-utilities.scm index 2180b3734e..8259288343 100644 --- a/gnucash/report/report-system/report-utilities.scm +++ b/gnucash/report/report-system/report-utilities.scm @@ -1184,7 +1184,9 @@ flawed. see report-utilities.scm. please update reports.") (xaccTransGetCurrency txn) (xaccSplitGetValue spl)))))) (define (trans->str txn) - (format #f "Txn" (qof-print-date (xaccTransGetDate txn)))) + (format #f "Txn" + (qof-print-date (xaccTransGetDate txn)) + (xaccTransGetDescription txn))) (define (account->str acc) (format #f "Acc<~a>" (xaccAccountGetName acc))) (define (monetary-collector->str coll) @@ -1213,7 +1215,7 @@ flawed. see report-utilities.scm. please update reports.") (gncInvoiceGetTotal inv))))) (define (lot->str lot) (format #f "Lot" - (gnc:strify (xaccAccountGetName (gnc-lot-get-account lot))) + (xaccAccountGetName (gnc-lot-get-account lot)) (gnc-lot-get-title lot) (gnc-lot-get-notes lot) (gnc-lot-get-balance lot)