diff --git a/piclib/picrin/test.scm b/piclib/picrin/test.scm
index f786ba58..1e938e11 100644
--- a/piclib/picrin/test.scm
+++ b/piclib/picrin/test.scm
@@ -69,9 +69,7 @@
   (define-syntax test-values
     (syntax-rules ()
       ((_ expect expr)
-       (test-values #f expect expr))
-      ((_ name expect expr)
-       (test name (call-with-values (lambda () expect) (lambda results results))
+       (test (call-with-values (lambda () expect) (lambda results results))
              (call-with-values (lambda () expr) (lambda results results))))))
 
 
diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index 1cf0cb0a..c02b0c9d 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -763,15 +763,15 @@
 (test 7 (abs -7))
 (test 7 (abs 7))
 
-;; (test-values (values 2 1) (floor/ 5 2))
-;; (test-values (values -3 1) (floor/ -5 2))
-;; (test-values (values -3 -1) (floor/ 5 -2))
-;; (test-values (values 2 -1) (floor/ -5 -2))
-;; (test-values (values 2 1) (truncate/ 5 2))
-;; (test-values (values -2 -1) (truncate/ -5 2))
-;; (test-values (values -2 1) (truncate/ 5 -2))
-;; (test-values (values 2 -1) (truncate/ -5 -2))
-;; (test-values (values 2.0 -1.0) (truncate/ -5.0 -2))
+(test-values (values 2 1) (floor/ 5 2))
+(test-values (values -3 1) (floor/ -5 2))
+(test-values (values -3 -1) (floor/ 5 -2))
+(test-values (values 2 -1) (floor/ -5 -2))
+(test-values (values 2 1) (truncate/ 5 2))
+(test-values (values -2 -1) (truncate/ -5 2))
+(test-values (values -2 1) (truncate/ 5 -2))
+(test-values (values 2 -1) (truncate/ -5 -2))
+(test-values (values 2.0 -1.0) (truncate/ -5.0 -2))
 
 (test 1 (modulo 13 4))
 (test 1 (remainder 13 4))