--- a/Socket.st	Thu Apr 03 15:23:44 2014 +0200
+++ b/Socket.st	Thu Apr 03 17:29:26 2014 +0200
@@ -2773,59 +2773,6 @@
 
 !Socket methodsFor:'low level'!
 
-closeFile
-    "low level close"
-
-%{  /* NOCONTEXT */
-#ifndef NO_SOCKET
-    OBJ t;
-
-    t = __INST(handle);
-    if (t != nil) {
-	FILE *fp = __FILEVal(t);
-	int fd  = fileno(fp);
-	SOCKET sock = SOCKET_FROM_FD(fd);
-
-	__INST(handle) = nil;
-
-# ifdef DO_WRAP_CALLS
-	{
-	  INT ret;
-	  // __setWrapCallDebugging(1,1);
-
-	  if (__INST(buffered) == true){
-	      /* do a fflush() first, so that fclose() doesn't block
-	       * we suspect, that EINTR causes problems in fclose()
-	       */
-	      do {
-		  __threadErrno = 0;
-		  ret = (INT)__STX_C_CALL1("fflush", fflush, fp);
-	      } while((ret < 0) && (__threadErrno == EINTR));
-	  }
-
-	  do {
-	    __threadErrno = 0;
-	    ret = (INT)STX_C_NOINT_CALL1("fclose", fclose, fp);
-	  } while ((ret < 0) && (__threadErrno == EINTR));
-
-	  // __setWrapCallDebugging(1,0);
-	}
-# else /* !DO_WRAP_CALLS */
-	if (__INST(buffered) == true){
-	    DBGFPRINTF((stderr, "SOCKET: fflush %"_lx_" (%d %d)\n", (INT)fp, fileno(fp), sock));
-	    fflush(fp);
-	}
-
-	if ((@global(FileOpenTrace) == true) || __debugging__) {
-	    console_fprintf(stderr, "SOCKET: fclose %"_lx_" (%d %d)\n", (INT)fp, fileno(fp), sock);
-	}
-	fclose(fp);
-# endif /* !DO_WRAP_CALLS */
-    }
-#endif /* NO_SOCKET */
-%}
-!
-
 getSocketAdress
     "BAD SPELLING, of #getSocketAddress, kept for compatibility with swazoo"
 
@@ -4126,10 +4073,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.299 2014-04-03 13:23:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.300 2014-04-03 15:29:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.299 2014-04-03 13:23:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.300 2014-04-03 15:29:26 stefan Exp $'
 ! !