diff --git a/piclib/picrin/array.scm b/piclib/picrin/array.scm
index 4f8295d5..66aaa5b5 100644
--- a/piclib/picrin/array.scm
+++ b/piclib/picrin/array.scm
@@ -1,7 +1,7 @@
 (define-library (picrin array)
   (import (scheme base))
 
-  (define-record-type array-type
+  (define-record-type <array>
     (create-array data size head tail)
     array?
     (data array-data set-array-data!)
diff --git a/piclib/scheme/lazy.scm b/piclib/scheme/lazy.scm
index 444dda40..70774f21 100644
--- a/piclib/scheme/lazy.scm
+++ b/piclib/scheme/lazy.scm
@@ -4,7 +4,7 @@
   (import (scheme base)
 	  (picrin macro))
 
-  (define-record-type promise
+  (define-record-type <promise>
     (make-promise% done obj)
     promise?
     (done promise-done? promise-done!)
diff --git a/piclib/srfi/111.scm b/piclib/srfi/111.scm
index aafb4c8b..2fb15916 100644
--- a/piclib/srfi/111.scm
+++ b/piclib/srfi/111.scm
@@ -1,8 +1,10 @@
 (define-library (srfi 111)
   (import (scheme base))
 
-  (define-record-type box-type (box value) box?
-                      (value unbox set-box!))
+  (define-record-type <box>
+    (box value)
+    box?
+    (value unbox set-box!))
 
   (export box box?
           unbox set-box!))