--- a/Socket.st	Mon Mar 24 20:56:04 1997 +0100
+++ b/Socket.st	Mon Mar 24 21:43:35 1997 +0100
@@ -1480,6 +1480,13 @@
     "Modified: 11.3.1996 / 14:21:31 / stefan"
 !
 
+bindAnonymously
+    ^ self
+	bindTo:0
+	address:nil
+	reuseAddress:true
+!
+
 bindTo:aSocketAddress 
     "ST80 compatible bind, expecting a socketAddress argument.
      The socketAddress object (an instance of SocketAddress)
@@ -2673,5 +2680,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.77 1997-03-24 19:56:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.78 1997-03-24 20:43:35 cg Exp $'
 ! !