diff --git a/gnucash/report/html-style-info.scm b/gnucash/report/html-style-info.scm
index 0da74ca2d9..8975e7aa06 100644
--- a/gnucash/report/html-style-info.scm
+++ b/gnucash/report/html-style-info.scm
@@ -132,41 +132,25 @@
;; style. The return should be an HTML string.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define
- (make-record-type ""
- '(renderer data inheritable?)))
-
-(define gnc:html-data-style-info?
- (record-predicate ))
-
-(define gnc:make-html-data-style-info-internal
- (record-constructor ))
+(define-record-type
+ (make-html-data-style-info-internal renderer data inheritable?)
+ data-style-info?
+ (renderer html-data-style-info-renderer html-data-style-info-set-renderer)
+ (data html-data-style-info-data html-data-style-info-set-data)
+ (inheritable? html-data-style-info-inherit html-data-style-info-set-inherit))
+
+(define gnc:make-html-data-style-info-internal make-html-data-style-info-internal)
+(define gnc:html-data-style-info? data-style-info?)
+(define gnc:html-data-style-info-renderer html-data-style-info-renderer)
+(define gnc:html-data-style-info-set-renderer! html-data-style-info-set-renderer)
+(define gnc:html-data-style-info-data html-data-style-info-data)
+(define gnc:html-data-style-info-set-data! html-data-style-info-set-data)
+(define gnc:html-data-style-info-inheritable? html-data-style-info-inherit)
+(define gnc:html-data-style-info-set-inheritable?! html-data-style-info-set-inherit)
(define (gnc:make-html-data-style-info renderer data)
(gnc:make-html-data-style-info-internal renderer data #t))
-(define gnc:html-data-style-info?
- (record-predicate ))
-
-(define gnc:html-data-style-info-renderer
- (record-accessor 'renderer))
-
-(define gnc:html-data-style-info-set-renderer!
- (record-modifier 'renderer))
-
-(define gnc:html-data-style-info-data
- (record-accessor 'data))
-
-(define gnc:html-data-style-info-set-data!
- (record-modifier 'data))
-
-(define gnc:html-data-style-info-inheritable?
- (record-accessor 'inheritable?))
-
-(define gnc:html-data-style-info-set-inheritable?!
- (record-modifier 'inheritable?))
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; default renderers for some data types.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;