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