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