diff --git a/src/report/report-system/html-barchart.scm b/src/report/report-system/html-barchart.scm index 19293997eb..caa2ecafe4 100644 --- a/src/report/report-system/html-barchart.scm +++ b/src/report/report-system/html-barchart.scm @@ -266,7 +266,7 @@ (define (gnc:html-barchart-render barchart doc) (define (ensure-numeric elt) (cond ((number? elt) - elt) + (exact->inexact elt)) ((string? elt) (with-input-from-string elt (lambda () diff --git a/src/report/report-system/html-piechart.scm b/src/report/report-system/html-piechart.scm index 95384b60dc..264c4e54a8 100644 --- a/src/report/report-system/html-piechart.scm +++ b/src/report/report-system/html-piechart.scm @@ -136,7 +136,7 @@ (map (lambda (elt) (cond ((number? elt) - (abs elt)) + (exact->inexact (abs elt))) ((string? elt) (with-input-from-string elt (lambda () diff --git a/src/report/report-system/html-scatter.scm b/src/report/report-system/html-scatter.scm index 91d2dbe767..ac418fda79 100644 --- a/src/report/report-system/html-scatter.scm +++ b/src/report/report-system/html-scatter.scm @@ -127,7 +127,7 @@ (define (gnc:html-scatter-render scatter doc) (define (ensure-numeric elt) (cond ((number? elt) - elt) + (exact->inexact elt)) ((string? elt) (with-input-from-string elt (lambda ()