diff --git a/scheme/rts/jar-defrecord.scm b/scheme/rts/jar-defrecord.scm
index ddaa981..2a16267 100644
--- a/scheme/rts/jar-defrecord.scm
+++ b/scheme/rts/jar-defrecord.scm
@@ -46,9 +46,9 @@
 	  (%unspecific (r 'unspecific))
 	  (name (cadr e))
 	  (type (caddr e))
-	  (args (map car (cadddr e)))
+	  (args (map r (map car (cadddr e))))
 	  (arg-types (map cadr (cadddr e)))
-	  (fields (caddr (cddr e))))
+	  (fields (map r (caddr (cddr e)))))
       (define (mem? name list)
 	(cond ((null? list)        #f)
 	      ((c name (car list)) #t)