rem: Tcl_SetResult(interp, Tcl_GetEncodingName(encoding), TCL_VOLATILE);
add: Tcl_SetResult(interp, (char*)Tcl_GetEncodingName(encoding), TCL_VOLATILE);
context: NsTclEncodingForCharsetCmd(ClientData dummy, Tcl_Interp *interp, int argc,                           char **argv){    Tcl_Encoding encoding;    if (argc != 2) {        Tcl_AppendResult(interp, "usage: ", argv[0], " charset", NULL);	return TCL_ERROR;    }    encoding = Ns_GetCharsetEncoding(argv[1]);    if (encoding == NULL) {	return TCL_OK;    }    Tcl_SetResult(interp, Tcl_GetEncodingName(encoding), TCL_VOLATILE);    return TCL_OK;}