Socket.st
changeset 3127 333e87ba225a
parent 3126 d95cc55a4fb5
child 3137 df3e9cebf52c
--- a/Socket.st	Mon Oct 14 15:29:32 2013 +0200
+++ b/Socket.st	Mon Oct 14 17:21:30 2013 +0200
@@ -3030,7 +3030,7 @@
         alen = sizeof(sa);
         newSock = (SOCKET)STX_WSA_CALL3("accept", accept, sock, &sa, &alen);
     } while ((newSock < 0) && (__threadErrno == EINTR));
-    if (ret < 0) {
+    if (newSock < 0) {
         errno = __threadErrno;
     }
 # else
@@ -4236,10 +4236,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.287 2013-10-14 13:29:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.288 2013-10-14 15:21:30 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.287 2013-10-14 13:29:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.288 2013-10-14 15:21:30 stefan Exp $'
 ! !