--- smalltalk-2.0.11/tcp/AbstractSocketImpl.st 2002-12-24 10:43:04.000000000 +0100 +++ /opt/gnu-smalltalk/share/smalltalk/tcp/AbstractSocketImpl.st 2003-03-24 19:12:08.000000000 +0100 @@ -492,8 +492,12 @@ "Send aDatagram on the socket" self send: aDatagram - to: (aDatagram address isNil ifTrue: [ remoteAddress ]) - port: (aDatagram address isNil ifTrue: [ remotePort ]) + to: (aDatagram address isNil + ifTrue: [ remoteAddress ] + ifFalse: [aDatagram address]) + port: (aDatagram port isNil + ifTrue: [ remotePort ] + ifFalse: [aDatagram port]) ! receive: flags datagram: aDatagram