--- a/RegressionTests__StreamTests.st	Tue Oct 15 20:22:09 2019 +0200
+++ b/RegressionTests__StreamTests.st	Tue Oct 15 20:31:16 2019 +0200
@@ -1226,6 +1226,24 @@
     "
 !
 
+test53b_upToAll
+    |s t|
+
+    s := 'abcdefg' readStream.
+    self assert:( s upToAllExcluding:'de' ) = 'abc'.
+    self assert:( s upToEnd ) = 'fg'.
+
+    s := 'abcdefg' readStream.
+    self assert:( t := s upToAllExcluding:'xx' ) = 'abcdefg'.
+    self assert:( s atEnd ).
+    self assert:( s upToEnd ) = ''.
+
+    "
+     self run:#test53b_upToAll
+     self new test53b_upToAll
+    "
+!
+
 test60_signalAtEnd
     |s|