diff --git a/basis/io/streams/string/string-tests.factor b/basis/io/streams/string/string-tests.factor
index bf20c7452e..fd19e251c6 100644
--- a/basis/io/streams/string/string-tests.factor
+++ b/basis/io/streams/string/string-tests.factor
@@ -50,6 +50,10 @@ unit-test
     ] { } make
 ] unit-test
 
+{ "" CHAR: \r } [
+    "\r\n" <string-reader> [ "\r" read-until ] with-input-stream
+] unit-test
+
 [ "hello" "hi" ] [
     "hello\nhi" <string-reader>
     dup stream-readln
diff --git a/core/io/streams/byte-array/byte-array-tests.factor b/core/io/streams/byte-array/byte-array-tests.factor
index 046f4b8b0d..dfda11a76f 100644
--- a/core/io/streams/byte-array/byte-array-tests.factor
+++ b/core/io/streams/byte-array/byte-array-tests.factor
@@ -28,6 +28,12 @@ IN: io.streams.byte-array.tests
     [ 1 read drop "\0" read-until ] with-byte-reader
 ] unit-test
 
+
+{ B{ } 1 } [
+    B{ 1 2 3 } binary [ B{ 1 } read-until ] with-byte-reader
+] unit-test
+
+
 [ 1 1 4 11 f ] [
     B{ 1 2 3 4 5 6 7 8 9 10 11 12 } binary
     [