Tcl_SetResult -> Tcl_SetObjResult