public static void Tcl_SetIntObj(TclObject to, int result ) { while (to.Shared) { to.Release(); } TclInteger.set(to, result); to.Preserve(); }