Tcl_SetResult -> Tcl_SetObjResult
merge trunk