--- a/Socket.st	Mon Nov 04 15:38:30 2002 +0100
+++ b/Socket.st	Thu Nov 07 12:01:08 2002 +0100
@@ -1133,8 +1133,8 @@
 
 connectTo:service on:host
     "standard & easy client setup: 
-	create new client tcp socket, bind and connect; 
-	return the socket.
+        create new client tcp socket, bind and connect; 
+        return the socket.
      The thread block (interruptable), until the connection is 
      established."
 
@@ -1144,8 +1144,9 @@
 
     "
      Socket connectTo:9995 on:'clam'
+     Socket connectTo:4711 on:'exept'
      Socket connectTo:'finger' on:'clam'
-     Socket connectTo:'ftp' on:'clam'
+     Socket connectTo:'ftp' on:'exept'
      Socket connectTo:'nntp' on:(OperatingSystem getEnvironment:'NNTPSERVER')
     "
 !
@@ -2261,34 +2262,6 @@
     ^ self getPeer
 ! !
 
-!Socket methodsFor:'accessing'!
-
-localAddress
-	"Answer an InternetAddress representing the address of the peer machine."
-
-	| winSockAddr winSockAddrLen result |
-	#swAdded.
-	winSockAddr := SOCKADDR_IN new.
-	winSockAddrLen := SDWORD new.
-	winSockAddrLen value: winSockAddr byteSize.
-	result := WSockLibrary default 
-				getsockname: self asParameter
-				name: winSockAddr
-				namelen: winSockAddrLen.
-	result = -1 ifTrue: [self error].
-	^InternetAddress ipAddress: winSockAddr sin_addr
-!
-
-swazooLogStream
-	#swAdded.
-	^SwazooLoggingStream socket: self
-!
-
-swazooStream
-	#swAdded.
-	^SwazooStream socket: self
-! !
-
 !Socket methodsFor:'datagram transmission'!
 
 receiveBuffer:aDataBuffer start:startIndex for:nBytes
@@ -5160,5 +5133,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.163 2002-11-04 09:15:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.164 2002-11-07 11:01:08 cg Exp $'
 ! !