diff --git a/lib/srfi/99/records/procedural.scm b/lib/srfi/99/records/procedural.scm
index f8477da8..87849c2d 100644
--- a/lib/srfi/99/records/procedural.scm
+++ b/lib/srfi/99/records/procedural.scm
@@ -1,7 +1,7 @@
 
 (define (make-rtd name fields . o)
   (let ((parent (and (pair? o) (car o))))
-    (register-simple-type name (vector->list fields) parent)))
+    (register-simple-type name parent (vector->list fields))))
 
 (define (rtd? x)
   (type? x))