diff --git a/src/report/report-system/html-table.scm b/src/report/report-system/html-table.scm
index 3ed3028b11..4a7d7ad8fb 100644
--- a/src/report/report-system/html-table.scm
+++ b/src/report/report-system/html-table.scm
@@ -484,7 +484,8 @@
(rest-new (cdr newcol))
(rest-existing (cdr existing-data))
(rest-result (append-to-element rest-new rest-existing
- (- length-to-append 1))))
+ (- length-to-append 1)
+ width-to-make)))
(cons (cons (widen-and-append
current-existing
current-new