diff --git a/gnucash/report/report-system/html-table.scm b/gnucash/report/report-system/html-table.scm
index 357881b6d1..7d6d5c7625 100644
--- a/gnucash/report/report-system/html-table.scm
+++ b/gnucash/report/report-system/html-table.scm
@@ -569,11 +569,13 @@
           (cons 
            (cons (cons current-new current-existing) (car rest-result))
            (cdr rest-result)))))
+  (issue-deprecation-warning "gnc:html-table-prepend-column! is unused.")
   (let* ((existing-data (reverse (gnc:html-table-data table)))
 	 (existing-length (length existing-data))
 	 (newcol-length (length newcol)))
     (if (<= newcol-length existing-length)
-        (gnc:html-table-set-data! 
+        (gnc:html-table-set-data!
+         table
          (reverse (car (prepend-to-element 
                         newcol
                         existing-data