anchor.diff:      x.RaiseError(x.Prototypes.ReferenceError, message)
   
   and CO = CommonObject
  -and [<AllowNullLiteral>] CommonObject = 
  +and [<AllowNullLiteral>] CommonObject =
  +  inherit DynamicObject
   
     val Env : Environment
     val mutable Prototype : CO
  
positive.code:       if x.Properties.[kvp.Value].HasValue then
          dict.Add(kvp.Key, x.Properties.[kvp.Value].Value.ClrBoxed)
      dict
  
    ///
    member x.HasPrototype = 
  
negative.code:     Properties = null
    }
  
    override x.TryGetMember(binder:GetMemberBinder, result:obj byref) : bool =
      let item:Descriptor = x.Find(binder.Name)
      if item.HasValue
        then
          result <- item.Value.UnboxObject()
          true
        else
          false
  
    override x.TrySetMember(binder:SetMemberBinder, value:obj) : bool =
      x.Put(binder.Name, value)
      true
  
    abstract ClassName : string with get
    default x.ClassName = "Object"
  
  