--- a/Socket.st	Fri Mar 28 13:48:17 2008 +0100
+++ b/Socket.st	Mon Mar 31 15:23:47 2008 +0200
@@ -1637,9 +1637,13 @@
      This is the default after the socket has been created"
 
     ^ self
-	bindTo:nil
-	address:nil
-	reuseAddress:false
+        bindTo:nil
+        address:nil
+        reuseAddress:false
+
+    "   
+      self newTCP bindAnonymously; listenFor:1; yourself
+    "
 !
 
 bindAnonymouslyToAddress:addressString
@@ -1647,9 +1651,13 @@
      A free port will be allocated"
 
     ^ self
-	bindTo:nil
-	address:addressString
-	reuseAddress:false
+        bindTo:nil
+        address:addressString
+        reuseAddress:false
+
+    "   
+      self newTCP bindAnonymouslyToAddress:IPSocketAddress local; listenFor:1; yourself
+    "
 !
 
 bindTo:aSocketAddress
@@ -3943,5 +3951,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.243 2008-03-28 12:47:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.244 2008-03-31 13:23:47 stefan Exp $'
 ! !