translated = Tcl_TranslateFileName(interp, Tcl_GetString(objv[i]), &buffer);
	if (translated == NULL) {
	    Tcl_DStringFree(&ds);
	    return TCL_ERROR;
	}
	Tcl_UtfToExternalDString(NULL, translated, -1, &ds);
	if (chmod(Tcl_DStringValue(&ds), (mode_t)mode) != 0) {
	    TclAppendResult(interp, translated, ": ", Tcl_PosixError(interp));
	    Tcl_DStringFree(&ds);
	    return TCL_ERROR;
	}
	Tcl_DStringFree(&buffer);
	Tcl_DStringSetLength(&ds, 0);
    }