rem: return (ptr ? Tcl_Realloc(ptr, size) : Tcl_Alloc(size));
add: return (ptr ? ckrealloc(ptr, size) : ckalloc(size));
context: ns_realloc(void *ptr, size_t size){    return (ptr ? Tcl_Realloc(ptr, size) : Tcl_Alloc(size));}