/* get infoPtr lock */
	    WaitForSingleObject(tsdPtr->socketListLock, INFINITE);

	    /*
	     * Reset last error from last try
	     */
	    infoPtr->lastError = 0;
	    Tcl_SetErrno(0);
	    
	    infoPtr->sockets->fd = socket(infoPtr->myaddr->ai_family, SOCK_STREAM, 0);
	    
	    /* Free list lock */
	    SetEvent(tsdPtr->socketListLock);

	    /* continue on socket creation error */

		if ( infoPtr->flags & SOCKET_REENTER_PENDING ) {
		    *errorCodePtr = EWOULDBLOCK;
		    return 0;
		}
		return 1;
	    }
	    /* error case */
	    *errorCodePtr = Tcl_GetErrno();
	    return 0;
	}

        /* Free list lock */
        SetEvent(tsdPtr->socketListLock);

	/*
	 * A non blocking socket waiting for an asyncronous connect

    sock = infoPtr->sockets->fd;
    if (optionName != NULL) {
	len = strlen(optionName);
    }

    if ((len > 1) && (optionName[1] == 'e') &&
	    (strncmp(optionName, "-error", len) == 0)) {

	DWORD err;
	/*
	 * Check if an asyncroneous connect is running
	 * and return ok
	 */
	if (infoPtr->flags & SOCKET_REENTER_PENDING) {
	    err = 0;
	} else {
	    int optlen;
	    int ret;

	    optlen = sizeof(int);
	    ret = TclWinGetSockOpt(sock, SOL_SOCKET, SO_ERROR,
		    (char *)&err, &optlen);
	    if (ret == SOCKET_ERROR) {
		err = WSAGetLastError();
	    }
	}
	if (err) {
	    TclWinConvertError(err);
	    Tcl_DStringAppend(dsPtr, Tcl_ErrnoMsg(Tcl_GetErrno()), -1);
	}
	return TCL_OK;
    }