diff --git a/tests/base.scm b/tests/base.scm
index 506a46b8..ef6e19ec 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -30,18 +30,22 @@
   (test '() (make-list -2))
 )
 
-(test-group
-  "I/O"
-  (define p (open-input-string "one\ntwo\n"))
-  (test #\o (read-char p))
-  (test "ne" (read-line p))
-  (test "two" (read-line p))
-  (test (eof-object) (read-line p))
-  (define p (open-input-string "one\ntwo\n"))
-  (test "one" (read-line p))
-  (test #\t (read-char p))
-  (test #\w (read-char p))
-  (test "o" (read-line p))
+(cond-expand
+  (memory streams
+    (test-group
+      "I/O"
+      (define p (open-input-string "one\ntwo\n"))
+      (test #\o (read-char p))
+      (test "ne" (read-line p))
+      (test "two" (read-line p))
+      (test (eof-object) (read-line p))
+      (define p (open-input-string "one\ntwo\n"))
+      (test "one" (read-line p))
+      (test #\t (read-char p))
+      (test #\w (read-char p))
+      (test "o" (read-line p))
+    )
+  )
 )
 
 (test-group