Tcl_Interp *interp)		/* Interpreter to set the errorCode of */
{
    const char *id, *msg;

    msg = Tcl_ErrnoMsg(errno);
    id = Tcl_ErrnoId();
    if (interp) {
	Tcl_SetErrorCode(interp, "POSIX", id, msg, NULL);
	Tcl_SetErrorCode(interp, "POSIX", id, msg, (void *)NULL);
    }
    return msg;
}

/*
 *----------------------------------------------------------------------
 *