diff --git a/gnucash/report/report-system/html-table.scm b/gnucash/report/report-system/html-table.scm
index 971e13dd6b..357881b6d1 100644
--- a/gnucash/report/report-system/html-table.scm
+++ b/gnucash/report/report-system/html-table.scm
@@ -364,8 +364,9 @@
(define (gnc:html-table-prepend-row! table newrow)
(let* ((dd (gnc:html-table-data table))
(current-num-rows (gnc:html-table-num-rows table))
- (new-num-rows (+ current-num-rows 1)))
- (set! dd (append dd (list newrow)))
+ (new-num-rows (+ current-num-rows 1))
+ (newrow-list (if (list? newrow) newrow (list newrow))))
+ (set! dd (append dd (list newrow-list)))
(gnc:html-table-set-num-rows-internal!
table
new-num-rows)
diff --git a/gnucash/report/report-system/test/test-report-html.scm b/gnucash/report/report-system/test/test-report-html.scm
index 3bd7b44971..1e8bda4fce 100644
--- a/gnucash/report/report-system/test/test-report-html.scm
+++ b/gnucash/report/report-system/test/test-report-html.scm
@@ -686,13 +686,14 @@ HTML Document Title\n\
(gnc:html-table-prepend-row! test-table "Row 1")
(gnc:html-table-prepend-row! test-table "Row 0")
(gnc:html-table-prepend-row! test-table "Row -1")
+ (gnc:html-table-prepend-row! test-table '("r-2-c1" "r-2-c2"))
(test-equal "Check Num Rows after prepend row"
- 4
+ 5
(gnc:html-table-num-rows test-table)
)
- (test-expect-fail 1)
- (test-equal "Check data after prepend row - Bug 796829"
- '(("Row 2") ("Row 1") ("Row 0") ("Row -1"))
+ (test-equal "Check data after prepend row"
+
+ '(("Row 2") ("Row 1") ("Row 0") ("Row -1") ("r-2-c1" "r-2-c2"))
(gnc:html-table-data test-table)
)
)