diff --git a/lib/srfi/38/test.sld b/lib/srfi/38/test.sld
index 79d0b358..a9997f98 100644
--- a/lib/srfi/38/test.sld
+++ b/lib/srfi/38/test.sld
@@ -80,7 +80,7 @@
                  (vector-set! x 2 x)
                  x))
 
-      (test "#\newline" #\newline)
+      (test-io "#\\newline" #\newline)
 
       (test '+.! (read-from-string "+.!"))