rem: "fatal, bug, debug or integer value", NULL);
add: "fatal, bug, debug, dev, or integer value", NULL);
context: NsTclLogObjCmd(ClientData arg, Tcl_Interp *interp, int objc,	       Tcl_Obj *CONST objv[]){    Ns_LogSeverity severity;    LogCache *cachePtr;    char *severitystr;    int i;    Ns_DString ds;    if (objc < 3) {        Tcl_WrongNumArgs(interp, 1, objv, "severity string ?string ...?");    	return TCL_ERROR;    }    severitystr = Tcl_GetString(objv[1]);    cachePtr = LogGetCache();    if (STRIEQ(severitystr, "notice")) {	severity = Notice;    } else if (STRIEQ(severitystr, "warning")) {	severity = Warning;    } else if (STRIEQ(severitystr, "error")) {	severity = Error;    } else if (STRIEQ(severitystr, "fatal")) {	severity = Fatal;    } else if (STRIEQ(severitystr, "bug")) {	severity = Bug;    } else if (STRIEQ(severitystr, "debug")) {	severity = Debug;    } else if (Tcl_GetIntFromObj(NULL, objv[1], &i) == TCL_OK) {	severity = i;    } else {	Tcl_AppendResult(interp, "unknown severity: \"", severitystr,	    "\": should be notice, warning, error, "	    "fatal, bug, debug or integer value", NULL);	return TCL_ERROR;    }    Ns_DStringInit(&ds);    for (i = 2; i < objc; ++i) {	Ns_DStringVarAppend(&ds,	Tcl_GetString(objv[i]), i < (objc-1) ? " " : NULL, NULL);    }    Ns_Log(severity, "%s", ds.string);    Ns_DStringFree(&ds);    return TCL_OK;}