"Works"
|s|
Socket initializeNetwork.
s := Socket newTCP.
s connectTo: (NetNameResolver addressForName: '127.0.0.1') port: 21.
s waitForConnectionUntil: Socket standardDeadline.
s sendSomeData: (String cr, String cr).
1 to: 10 do: [:i |
	s sendSomeData: (String cr, String cr).
	[s dataAvailable] whileTrue: [Transcript cr; show: s getData printString]].
s destroy.

NetNameResolver localHostAddress  -> a ByteArray(0 0 0 0)
Socket initializeNetwork
NetNameResolver localHostAddress  -> a ByteArray(192 168 1 2)

On the thread: I think that Squeak sockets are broken in the aspect of not
being able to bind a server socket to a specific address. Correcting it
wouldn't be hard, someone who knows the internals could do this in an hour,
probably (I looked once or twice, and decided that I was not that someone :-))