diff --git a/src/report/report-system/html-style-info.scm b/src/report/report-system/html-style-info.scm index d5de41230f..f88caaffc4 100644 --- a/src/report/report-system/html-style-info.scm +++ b/src/report/report-system/html-style-info.scm @@ -284,15 +284,9 @@ (xaccPrintAmount datum (gnc-default-print-info #f))) (define (gnc:default-html-gnc-monetary-renderer datum params) - (let* ((result (xaccPrintAmount - (gnc:gnc-monetary-amount datum) - (gnc-commodity-print-info - (gnc:gnc-monetary-commodity datum) #t))) - (ind (string-index result (integer->char 164)))) - (if ind - (string-append (substring result 0 ind) "€" - (substring result (+ 1 ind) (string-length result))) - result))) + (xaccPrintAmount + (gnc:gnc-monetary-amount datum) + (gnc-commodity-print-info (gnc:gnc-monetary-commodity datum) #t))) (define (gnc:default-html-number-renderer datum params) (xaccPrintAmount