diff --git a/tests/test-eastasian-locale.scm b/tests/test-eastasian-locale.scm
index c3baa88..21e43d8 100644
--- a/tests/test-eastasian-locale.scm
+++ b/tests/test-eastasian-locale.scm
@@ -4,7 +4,7 @@
 
 (test-begin "test-eastasian-locale")
 
-(define (test-east expected charset)
+(define (test-eastasian-locale expected charset)
   (test-equal
       (format #f "check ~a" charset)
     expected
@@ -21,6 +21,6 @@
     (#t "ja_JP.CP932")
     (#f "en_US.UTF-8")))
 
-(for-each (λ (p) (apply test-east p)) data)
+(for-each (λ (p) (apply test-eastasian-locale p)) data)
 
 (test-end "test-eastasian-locale")