1 files changed, 1 insertions, 1 deletions
diff --git a/record.scm b/record.scm
index b0cc755..a1a9450 100644
--- a/record.scm
+++ b/record.scm
@@ -66,7 +66,7 @@
 
        ;; Internal accessor functions.  No error checking.
        (rtd-tag (lambda (x) (vect-ref x 0)))
-       (rtd-name (lambda (rtd) (vect-ref rtd 1)))
+       (rtd-name (lambda (rtd) (if (vector? rtd) (vect-ref rtd 1) "rtd")))
        (rtd-fields (lambda (rtd) (vect-ref rtd 3)))
        ;; rtd-vfields is padded out to the length of the vector, which is 1
        ;; more than the number of fields