diff --git a/gnucash/report/html-document.scm b/gnucash/report/html-document.scm
index 36f82cde9e..47f544f315 100644
--- a/gnucash/report/html-document.scm
+++ b/gnucash/report/html-document.scm
@@ -265,14 +265,18 @@
;; want.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define
- (make-record-type ""
- '(renderer data)))
-(define gnc:html-object?
- (record-predicate ))
+(define-record-type
+ (make-html-object-internal renderer data)
+ html-object?
+ (renderer html-object-renderer html-object-set-renderer!)
+ (data html-object-data html-object-set-data!))
-(define gnc:make-html-object-internal
- (record-constructor ))
+(define gnc:html-object? html-object?)
+(define gnc:make-html-object-internal make-html-object-internal)
+(define gnc:html-object-renderer html-object-renderer)
+(define gnc:html-object-set-renderer! html-object-set-renderer!)
+(define gnc:html-object-data html-object-data)
+(define gnc:html-object-set-data! html-object-set-data!)
(define (gnc:make-html-object obj)
(cond
@@ -320,18 +324,6 @@
(lambda (obj doc)
(gnc:html-document-render-data doc obj)) obj))))
-(define gnc:html-object-renderer
- (record-accessor 'renderer))
-
-(define gnc:html-object-set-renderer!
- (record-modifier 'renderer))
-
-(define gnc:html-object-data
- (record-accessor 'data))
-
-(define gnc:html-object-set-data!
- (record-modifier 'data))
-
(define (gnc:html-object-render obj doc)
(if (gnc:html-object? obj)
((gnc:html-object-renderer obj) (gnc:html-object-data obj) doc)