--- a/Stream.st	Fri May 08 03:06:30 2015 +0200
+++ b/Stream.st	Fri May 08 03:06:57 2015 +0200
@@ -226,6 +226,7 @@
 ! !
 
 
+
 !Stream methodsFor:'accessing'!
 
 contents
@@ -3017,7 +3018,7 @@
     ^ self readWaitWithTimeoutMs:timeout
 !
 
-readWaitWithTimeout:secondsOrTimeDuration
+readWaitWithTimeout:secondsOrTimeDurationOrNil
     "suspend the current process, until the receiver
      becomes ready for reading or a timeout (in seconds) expired.
      If data is already available, return immediate.
@@ -3027,11 +3028,11 @@
 
     |ms|
 
-    secondsOrTimeDuration notNil ifTrue:[
-        secondsOrTimeDuration isNumber ifTrue:[
-            ms := secondsOrTimeDuration * 1000.
+    secondsOrTimeDurationOrNil notNil ifTrue:[
+        secondsOrTimeDurationOrNil isNumber ifTrue:[
+            ms := secondsOrTimeDurationOrNil * 1000.
         ] ifFalse:[
-            ms := secondsOrTimeDuration getMilliseconds.
+            ms := secondsOrTimeDurationOrNil getMilliseconds.
         ]
     ].
     ^ self readWaitWithTimeoutMs:ms
@@ -3784,11 +3785,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.242 2015-03-25 22:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.243 2015-05-08 01:06:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.242 2015-03-25 22:28:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.243 2015-05-08 01:06:57 cg Exp $'
 ! !