diff --git a/gnucash/report/business-reports/new-owner-report.scm b/gnucash/report/business-reports/new-owner-report.scm index 8e0217571a..2cd85e3bd0 100644 --- a/gnucash/report/business-reports/new-owner-report.scm +++ b/gnucash/report/business-reports/new-owner-report.scm @@ -286,7 +286,11 @@ (define (splits->desc splits) (let lp ((splits splits) (result '())) (if (null? splits) - (gnc:html-string-sanitize (string-join result ", ")) + (apply gnc:make-html-text + (fold + (lambda (a b) + (cons* (gnc:html-string-sanitize a) (gnc:html-markup-br) b)) + '() result)) (lp (cdr splits) (let ((memo (xaccSplitGetMemo (car splits)))) (if (or (string-null? memo) (member memo result))