diff --git a/src/ikarus.boot b/src/ikarus.boot
index d6f2059..e467ca6 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/makefile.ss b/src/makefile.ss
index bcd3940..5102d6d 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -135,6 +135,15 @@
     [buffer-mode         (macro . buffer-mode)]
     [file-options        (macro . file-options)]
     [error-handling-mode (macro . error-handling-mode)]
+    [fields              (macro . fields)] 
+    [mutable             (macro . mutable)]
+    [immutable           (macro . immutable)] 
+    [parent              (macro . parent)]
+    [protocol            (macro . protocol)]
+    [sealed              (macro . sealed)]
+    [opaque              (macro . opaque )]
+    [nongenerative       (macro . nongenerative)]
+    [parent-rtd          (macro . parent-rtd)]
     ))
 
 (define library-legend
@@ -1112,17 +1121,17 @@
     [file-exists?                                i r fi]
     [delete-file                                 i r fi]
     [define-record-type                          r rs]
-    [fields                                      r rs]
-    [immutable                                   r rs]
-    [mutable                                     r rs]
-    [opaque                                      r rs]
-    [parent                                      r rs]
-    [parent-rtd                                  r rs]
-    [protocol                                    r rs]
+    [fields                                      i r rs]
+    [immutable                                   i r rs]
+    [mutable                                     i r rs]
+    [opaque                                      i r rs]
+    [parent                                      i r rs]
+    [parent-rtd                                  i r rs]
+    [protocol                                    i r rs]
     [record-constructor-descriptor               r rs]
     [record-type-descriptor                      i r rs]
-    [sealed                                      r rs]
-    [nongenerative                               r rs]
+    [sealed                                      i r rs]
+    [nongenerative                               i r rs]
     [record-field-mutable?                       r ri]
     [record-rtd                                  r ri]
     [record-type-field-names                     i r ri]
diff --git a/src/psyntax.expander.ss b/src/psyntax.expander.ss
index 51c45ef..827cdcc 100644
--- a/src/psyntax.expander.ss
+++ b/src/psyntax.expander.ss
@@ -1929,7 +1929,9 @@
               (symbol-macro x '(none line block))))
            ((file-options)     file-options-macro)
            ((... => _ else unquote unquote-splicing
-             unsyntax unsyntax-splicing)
+             unsyntax unsyntax-splicing 
+             fields mutable immutable parent protocol
+             sealed opaque nongenerative parent-rtd)
             incorrect-usage-macro)
            (else (error 'macro-transformer "invalid macro ~s" x))))
         (else (error 'core-macro-transformer "invalid macro ~s" x)))))
diff --git a/src/todo-r6rs.ss b/src/todo-r6rs.ss
index 8b4aaa6..abb7a41 100755
--- a/src/todo-r6rs.ss
+++ b/src/todo-r6rs.ss
@@ -696,17 +696,17 @@
     [delete-file                                C fi]
     ;;;
     [define-record-type                         X rs]
-    [fields                                     X rs]
-    [immutable                                  X rs]
-    [mutable                                    X rs]
-    [opaque                                     X rs]
-    [parent                                     X rs]
-    [parent-rtd                                 X rs]
-    [protocol                                   X rs]
+    [fields                                     C rs]
+    [immutable                                  C rs]
+    [mutable                                    C rs]
+    [opaque                                     C rs]
+    [parent                                     C rs]
+    [parent-rtd                                 C rs]
+    [protocol                                   C rs]
     [record-constructor-descriptor              X rs]
     [record-type-descriptor                     X rs]
-    [sealed                                     X rs]
-    [nongenerative                              X rs]
+    [sealed                                     C rs]
+    [nongenerative                              C rs]
     ;;;
     [record-field-mutable?                      X ri]
     [record-rtd                                 X ri]