--- a/RegressionTests__ExternalStreamTest.st	Tue Dec 18 20:24:03 2001 +0100
+++ b/RegressionTests__ExternalStreamTest.st	Tue Dec 18 20:50:55 2001 +0100
@@ -135,6 +135,27 @@
     "
      self new testRead3
     "
+!
+
+testReadWait1
+    |h s ok|
+
+    self createWithSize10:'xxx3'.
+
+    h := OperatingSystem openFileForRead:'xxx3'.
+    s := ExternalReadStream on:h.
+
+    ok := (s readWaitWithTimeout:1) == false.
+
+    self assert:( ok ).
+
+    s close.
+
+    'xxx3' asFilename delete.
+
+    "
+     self new testReadWait1
+    "
 ! !
 
 !ExternalStreamTest class methodsFor:'documentation'!