anchor.diff:        then x.Put(parsed, value)
         else x.Put(index, value)
   
  -  member x.Put(index:Undefined, value:BoxedValue) : unit = 
  +  member x.Put(index:Undefined, value:BV) : unit = 
       x.Put("undefined", value)
   
  -  member x.Put(index:CommonObject, value:BoxedValue) : unit = 
  -    let index = TypeConverter.ToString(index)
  +  member x.Put(index:CO, value:BV) : unit = 
  +    let index = TC.ToString(index)
       let mutable parsed = 0u
       
       if CoreUtils.TryConvertToIndex(index, &parsed) 
  
positive.code:     let mutable i = 0u
      if CoreUtils.TryConvertToIndex(index, &i) 
        then x.Put(i, value)
        else x.Put(TypeConverter.ToString(index), value)
  
    member x.Put(index:bool, value:BoxedValue) : unit =
      x.Put(TypeConverter.ToString(index), value)
  
    member x.Put(index:double, value:BoxedValue) : unit = 
      let mutable parsed = 0u
  
      if CoreUtils.TryConvertToIndex(index, &parsed) 
        then x.Put(parsed, value)
        else x.Put(TypeConverter.ToString(index), value)
  
    member x.Put(index:Object, value:BoxedValue) : unit =
      let index = TypeConverter.ToString(index)
  
negative.code:   static member ToClrObject(o:CO) : Object = box o
    static member ToClrObject(f:FO) : Object = box f
    static member ToClrObject(c:Object) : Object = c
    static member ToClrObject(v:BV) : Object =
      match v.Tag with
      | TypeTags.Undefined -> null
      | TypeTags.Bool -> box v.Bool
  