diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 462f8a79..ab5a7266 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -1510,7 +1510,7 @@
       (get-output-string out)))
 
 (test ""
-  (let ((out (open-output-bytevector)))
+  (let ((out (open-output-string)))
     (flush-output-port out)
     (get-output-string out)))