diff --git a/gnucash/report/reports/standard/investment-lots.scm b/gnucash/report/reports/standard/investment-lots.scm
index 4a23b3c1d99..7f24c0308f5 100644
--- a/gnucash/report/reports/standard/investment-lots.scm
+++ b/gnucash/report/reports/standard/investment-lots.scm
@@ -1855,9 +1855,7 @@
             (gnc:html-chart-add-data-series!
                 chart
                 (account->name account)
-                (map (lambda (value)
-                          (gnc:gnc-monetary-amount (value->monetary value)))
-                    gain-values)
+                (map (compose gnc:gnc-monetary-amount value->monetary) gain-values)
                 (car colors))
             (set! colors (cdr colors)))))
 
@@ -2000,9 +1998,7 @@
             (gnc:html-chart-set-stacking?! chart
               (eq? chart-type 'bar-stacked)))))
 
-        (for-each
-          (lambda (account) (add-account-report account))
-          accounts)
+        (for-each add-account-report accounts)
 
         (add-padding-rows 3)
         (gnc:html-table-append-ruler! table column-count)