diff --git a/contrib/10.math/math.c b/contrib/10.math/math.c
index 36a42184..329f78a1 100644
--- a/contrib/10.math/math.c
+++ b/contrib/10.math/math.c
@@ -144,7 +144,7 @@ pic_number_sqrt(pic_state *pic)
 void
 pic_init_math(pic_state *pic)
 {
-  pic_deflibrary (pic, "(picrin number)") {
+  pic_deflibrary (pic, "(picrin math)") {
     pic_defun(pic, "finite?", pic_number_finite_p);
     pic_defun(pic, "infinite?", pic_number_infinite_p);
     pic_defun(pic, "nan?", pic_number_nan_p);
diff --git a/contrib/20.r7rs/scheme/base.scm b/contrib/20.r7rs/scheme/base.scm
index 1de6831b..1e05cdec 100644
--- a/contrib/20.r7rs/scheme/base.scm
+++ b/contrib/20.r7rs/scheme/base.scm
@@ -1,6 +1,6 @@
 (define-library (scheme base)
   (import (picrin base)
-          (only (picrin number) sqrt)
+          (only (picrin math) sqrt)
           (picrin macro)
           (picrin string)
           (scheme file))
diff --git a/contrib/20.r7rs/scheme/inexact.scm b/contrib/20.r7rs/scheme/inexact.scm
index a9a84770..578af54c 100644
--- a/contrib/20.r7rs/scheme/inexact.scm
+++ b/contrib/20.r7rs/scheme/inexact.scm
@@ -1,6 +1,6 @@
 (define-library (scheme inexact)
   (import (picrin base)
-          (picrin number))
+          (picrin math))
 
   (export acos
           asin