--- a/Socket.st	Mon Oct 06 15:29:57 1997 +0200
+++ b/Socket.st	Fri Oct 10 15:01:38 1997 +0200
@@ -809,6 +809,12 @@
     "
 !
 
+new
+    "create a TCP socket"
+
+    ^ super new buffered:false 
+!
+
 newTCP
     "create a TCP socket - no binding or other setup is done,
      neither connect nor connect-wait is done."
@@ -835,6 +841,25 @@
     "Socket newTCP:9995"
 !
 
+newTCPclientToAddress:aHostAddress port:aService
+    "create a new TCP client socket connecting to a service.
+     Return a socket instance if ok, nil on failure.
+     Block until a connection is established (but only the current thread;
+     not the whole smalltalk). 
+     See also: #newTCPclientToAddress:port:withTimeout:"
+
+    ^ self newTCPclientToAddress:aHostAddress port:aService withTimeout:nil
+!
+
+newTCPclientToAddress:aHostAddress port:aService withTimeout:millis
+    "create a new TCP client socket connecting to a service.
+     Return a socket instance if ok, nil on failure.
+     If the millis arg is nonNil, stop trying to connect after that many milliseconds
+     and return nil.."
+
+    ^ self newTCPclientToHost:aHostAddress port:aService withTimeout:millis
+!
+
 newTCPclientToHost:hostname port:aService
     "create a new TCP client socket connecting to a service.
      Return a socket instance if ok, nil on failure.
@@ -1651,6 +1676,11 @@
     ^ Signal new
 !
 
+readAppendStream
+    "ST-80 compatibility"
+    ^ self
+!
+
 readStream
     "ST-80 mimicry.
      In ST-80, socket is not a stream, but referes to one.
@@ -1662,6 +1692,12 @@
     "Created: 24.1.1997 / 23:52:57 / cg"
 !
 
+shutdown:how
+    "ST-80 compatibility"
+
+    self shutDown
+!
+
 writeStream
     "ST-80 mimicry.
      In ST-80, socket is not a stream, but referes to one.
@@ -3960,5 +3996,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.99 1997-10-04 16:38:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.100 1997-10-10 13:01:38 ca Exp $'
 ! !