--- a/FileBrowser.st	Tue Jun 12 14:50:47 2001 +0200
+++ b/FileBrowser.st	Tue Jun 12 20:01:22 2001 +0200
@@ -4974,7 +4974,12 @@
 
                         stillReplacing := replace.
 
-                        [stream atEnd or:[stream readWait. stream atEnd]] whileFalse:[
+                        [
+                            stream pid isNil
+                            or:[stream readWaitWithTimeout:1.
+                                stream atEnd not
+                               ]
+                        ] whileTrue:[
                             "
                              data available; read up to 100 lines
                              and insert as a single junk. This speeds up
@@ -4991,9 +4996,10 @@
                                     lines add:line
                                 ].
                             ] doWhile:[
-                                stream canReadWithoutBlocking
+                                stream pid notNil
+                                and:[stream canReadWithoutBlocking
                                 and:[stream atEnd not
-                                and:[lines size < 100]]
+                                and:[lines size < 100]]]
                             ]. 
 
                             "
@@ -7278,5 +7284,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.408 2001-06-12 12:50:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.409 2001-06-12 18:01:22 cg Exp $'
 ! !