rem: Ns_Log(Error, "%s\n%s", Tcl_GetStringResult(interp), errorInfo);
add: Ns_Log(Error, "Tcl exception:\n%s", errorInfo);
context: Ns_TclLogError(Tcl_Interp *interp){    CONST char *errorInfo;    errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);    if (errorInfo == NULL) {        errorInfo = "";    }    Ns_Log(Error, "%s\n%s", Tcl_GetStringResult(interp), errorInfo);    return (char *) errorInfo;}