diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 5ac75241..c139005d 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -1320,7 +1320,9 @@
   (lambda (f g)
     (lambda args
       (f (apply g args)))))
-(test 30 ((compose sqrt *) 12 75))
+(test '(30 0)
+    (call-with-values (lambda () ((compose exact-integer-sqrt *) 12 75))
+      list))
 
 (test '(b e h) (map cadr '((a b) (d e) (g h))))