add: servPtr = NsGetServer(server);
context: Ns_TclRegisterTrace(char *server, Ns_TclTraceProc *proc, void *arg, int when){    TclTrace *tracePtr, **firstPtrPtr;    NsServer *servPtr;    servPtr = NsGetServer(server);    if (servPtr == NULL || Ns_InfoStarted()) {	return NS_ERROR;    }    tracePtr = ns_malloc(sizeof(TclTrace));    tracePtr->proc = proc;    tracePtr->arg = arg;    tracePtr->when = when;    tracePtr->nextPtr = NULL;    firstPtrPtr = &servPtr->tcl.firstTracePtr;    while (*firstPtrPtr != NULL) {	firstPtrPtr = &((*firstPtrPtr)->nextPtr);    }    *firstPtrPtr = tracePtr;    return NS_OK;}