--- a/Socket.st	Mon Jun 04 21:44:03 2007 +0200
+++ b/Socket.st	Mon Jun 04 22:04:49 2007 +0200
@@ -1515,6 +1515,12 @@
     ^ self canReadWithoutBlocking
 !
 
+destroy
+    self close
+
+    "Created: / 04-06-2007 / 21:29:03 / cg"
+!
+
 listenOn:aPortNr
     self listenOn:aPortNr backlogSize:5
 
@@ -1584,6 +1590,12 @@
 
 waitForConnectionUntil:aMillisecondClockValue
     self shouldImplement.
+!
+
+waitForData
+    self readWait
+
+    "Created: / 04-06-2007 / 21:28:40 / cg"
 ! !
 
 !Socket methodsFor:'closing'!
@@ -4003,5 +4015,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.239 2007-06-04 19:44:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.240 2007-06-04 20:04:49 cg Exp $'
 ! !