diff --git a/lib/srfi/99/records/syntactic.scm b/lib/srfi/99/records/syntactic.scm
index e3166128..e43a8a79 100644
--- a/lib/srfi/99/records/syntactic.scm
+++ b/lib/srfi/99/records/syntactic.scm
@@ -10,12 +10,12 @@
             (procs (cddr expr))
             (make (car procs))
             (make-name (if (eq? make #t)
-                           (datum->syntax (car expr)
+                           (datum->syntax name
 					  (string->symbol (string-append "make-" name-str)))
                            (if (pair? make) (car make) make)))
             (pred (cadr procs))
             (pred-name (if (eq? pred #t)
-			   (datum->syntax (car expr)
+			   (datum->syntax name
 					  (string->symbol (string-append name-str "?")))
                            pred))
             (fields (cddr procs))