diff --git a/gnucash/report/html-style-info.scm b/gnucash/report/html-style-info.scm index 6ec971f042..a2f92d87b9 100644 --- a/gnucash/report/html-style-info.scm +++ b/gnucash/report/html-style-info.scm @@ -163,7 +163,11 @@ ;; renders a price to target currency (define (gnc:default-price-renderer currency amount) - (xaccPrintAmount amount (gnc-price-print-info currency #t))) + (xaccPrintAmount + (gnc-numeric-convert + amount (min 10000 (* 100 (gnc-commodity-get-fraction currency))) + GNC-HOW-RND-ROUND) + (gnc-price-print-info currency #t))) (define (gnc:default-html-gnc-monetary-renderer datum params) (let* ((comm (gnc:gnc-monetary-commodity datum))