Matthew Fulmer uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-mtf.105.mcz

==================== Summary ====================

Name: Network-mtf.105
Author: mtf
Time: 15 January 2011, 8:27:54.184 pm
UUID: 1b2c2f95-fc87-4b1f-a034-4dc2cb793c9b
Ancestors: Network-cmm.103

the SocketStream refactor broke the semantics of no-timeout streams. no timeout is supposed to mean we wait potentially forever. It was broken to mean timeout silently rather than with a signal.

=============== Diff against Network-cmm.103 ===============

Item was added:
+ ----- Method: BrowserUrl>>retrieveContentsForBrowser: (in category 'downloading') -----
+ retrieveContentsForBrowser: aBrowser
+ 	^aBrowser browserUrlContents: locator!

Item was changed:
  ----- Method: SocketStream>>receiveData (in category 'private-socket') -----
  receiveData
+ 	self waitForData.
- 	"Receive data. Signal exceptions and timeouts depending on #shouldSignal and #shouldTimeout. Return the position in the buffer where the new data starts, regardless if anything was read."
- 
- 	socket
- 		waitForDataFor: self timeout
- 		ifClosed: [self shouldSignal 
- 			ifTrue:[ConnectionClosed signal: 'Connection closed while waiting for data.']]
- 		ifTimedOut: [self shouldTimeout
- 			ifTrue:[ConnectionTimedOut signal: 'Data receive timed out.']].
  	^self receiveAvailableData!

Item was added:
+ ----- Method: SocketStream>>signalClosed (in category 'private-socket') -----
+ signalClosed
+ 	self shouldSignal ifFalse: [^ self]. 
+ 	ConnectionClosed signal: 'Connection closed while waiting for data.'!

Item was added:
+ ----- Method: SocketStream>>signalTimeout (in category 'private-socket') -----
+ signalTimeout
+ 	self shouldSignal ifFalse: [^ self]. 
+ 	ConnectionTimedOut signal: 'Data receive timed out.'!

Item was added:
+ ----- Method: SocketStream>>waitForData (in category 'private-socket') -----
+ waitForData
+ 	"Wait for data. If shouldTimeout, we will time out if nothing arrives, otherwise we wait indefinitely"
+ 
+ 	self shouldTimeout
+ 		ifTrue: [socket waitForDataFor: self timeout
+ 			ifClosed: [self signalClosed]
+ 			ifTimedOut: [self signalTimeout]]
+ 		ifFalse: [socket waitForDataIfClosed: [self signalClosed]]!