diff --git a/gnucash/report/html-style-info.scm b/gnucash/report/html-style-info.scm
index 8975e7aa06..6ec971f042 100644
--- a/gnucash/report/html-style-info.scm
+++ b/gnucash/report/html-style-info.scm
@@ -188,37 +188,24 @@
 ;; deserves a record structure. 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define <html-style-table>
-  (make-record-type "<html-style-table>"
-                    '(primary compiled inheritable)))
-
-(define gnc:html-style-table? 
-  (record-predicate <html-style-table>))
-
-(define gnc:make-html-style-table-internal 
-  (record-constructor <html-style-table>))
+(define-record-type <html-style-table>
+  (make-html-style-table primary compiled inheritable)
+  html-style-table?
+  (primary html-style-table-primary)
+  (compiled html-style-table-compiled html-style-table-set-compiled!)
+  (inheritable html-style-table-inheritable html-style-table-set-inheritable!))
 
+(define gnc:html-style-table? html-style-table?)
+(define gnc:make-html-style-table-internal make-html-style-table)
+(define gnc:html-style-table-primary html-style-table-primary)
+(define gnc:html-style-table-set-compiled! html-style-table-set-compiled!)
+(define gnc:html-style-table-inheritable html-style-table-inheritable)
+(define gnc:html-style-table-set-inheritable! html-style-table-set-inheritable!)
+(define gnc:html-style-table-compiled html-style-table-compiled)
+(define gnc:html-style-table-compiled? gnc:html-style-table-compiled)
 (define (gnc:make-html-style-table)
   (gnc:make-html-style-table-internal (make-hash-table) #f #f))
 
-(define gnc:html-style-table-primary
-  (record-accessor <html-style-table> 'primary))
-
-(define gnc:html-style-table-compiled
-  (record-accessor <html-style-table> 'compiled))
-
-(define gnc:html-style-table-set-compiled!
-  (record-modifier <html-style-table> 'compiled))
-
-(define gnc:html-style-table-inheritable
-  (record-accessor <html-style-table> 'inheritable))
-
-(define gnc:html-style-table-set-inheritable!
-  (record-modifier <html-style-table> 'inheritable))
-
-(define (gnc:html-style-table-compiled? table)
-  (gnc:html-style-table-compiled table))
-
 (define (gnc:html-style-table-compile table antecedents)
   ;; merge a key-value pair from an antecedent into the 
   ;; compiled table.  Only add values to the inheritable table