--- a/ExternalStream.st	Thu Aug 26 13:53:26 1999 +0200
+++ b/ExternalStream.st	Sat Aug 28 17:57:43 1999 +0200
@@ -4435,7 +4435,12 @@
      Return true if a timeout occured (i.e. false, if data is available).
      The other threads are not affected by the wait."
 
-    ^ self readWaitWithTimeoutMs:timeout * 1000
+    |ms|
+
+    timeout notNil ifTrue:[
+        ms := timeout * 1000
+    ].
+    ^ self readWaitWithTimeoutMs:ms
 !
 
 readWaitWithTimeoutMs:timeout 
@@ -4550,7 +4555,12 @@
      Return immediate if the receiver is already ready. 
      The other threads are not affected by the wait."
 
-    ^ self writeWaitWithTimeoutMs:timeout * 1000
+    |ms|
+
+    timeout notNil ifTrue:[
+        ms := timeout * 1000
+    ].
+    ^ self writeWaitWithTimeoutMs:ms
 !
 
 writeWaitWithTimeoutMs:timeout
@@ -4870,6 +4880,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.200 1999-08-24 15:02:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.201 1999-08-28 15:57:43 cg Exp $'
 ! !
 ExternalStream initialize!