--- a/Socket.st	Mon Mar 24 23:24:35 1997 +0100
+++ b/Socket.st	Tue Mar 25 09:53:21 1997 +0100
@@ -1484,7 +1484,14 @@
     ^ self
 	bindTo:0
 	address:nil
-	reuseAddress:true
+	reuseAddress:false
+!
+
+bindAnonymouslyToAddress:addressString
+    ^ self
+	bindTo:0
+	address:addressString
+	reuseAddress:false
 !
 
 bindTo:aSocketAddress 
@@ -2715,5 +2722,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.79 1997-03-24 22:24:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.80 1997-03-25 08:53:21 cg Exp $'
 ! !