diff --git a/syndicate/schema-compiler.rkt b/syndicate/schema-compiler.rkt
index 2efbfe1..9a6558e 100644
--- a/syndicate/schema-compiler.rkt
+++ b/syndicate/schema-compiler.rkt
@@ -84,7 +84,7 @@
     (define (top-pat top-name name p ty k-nonrecord)
       (let ((fields (match ty
                       [(ty-unit) '()]
-                      [(ty-record fields) (map escape (map car fields))]
+                      [(ty-record fields) (map escape (map ty-field-name fields))]
                       [_ #f])))
         (if (not fields)
             (k-nonrecord)