anchor.diff:                          formatter.WriteInt64 "id" id
                           formatter.EndWriteObject()
                   else
  -                    writeObject ObjectFlags.None
  +                    writeObject ()
   
               with 
               | :? SerializationException -> reraise ()
  
positive.code: 
              // writes a non-null instance of a reference type
  #if DEBUG
              let writeObject flags =
  #else
              let inline writeObject flags =
  #endif
                  if p.m_TypeInfo <= TypeInfo.Sealed || p.m_UseWithSubtypes then
                      beginWriteObject tag flags
                      p.m_Writer state value
                      formatter.EndWriteObject ()
                  else
                      // object might be of proper subtype, perform reflection resolution
                      let t0 = value.GetType()
                      if t0 <> typeof<'T> then
                          let subPickler = state.PicklerResolver.Resolve t0
                          beginWriteObject tag (flags ||| ObjectFlags.IsProperSubtype)
                          state.TypePickler.Write state "subtype" t0
                          state.NextObjectIsSubtype <- true
                          subPickler.UntypedWrite state tag value
                          formatter.EndWriteObject ()
                      else
                          beginWriteObject tag flags
                          p.m_Writer state value
                          formatter.EndWriteObject ()
  
  
negative.code: 
                              if t.IsArray then
                                  beginWriteObject tag ObjectFlags.IsCachedInstance
                              elif t <> p.Type then
                                  beginWriteObject tag (ObjectFlags.IsCyclicInstance ||| ObjectFlags.IsProperSubtype)
                                  state.TypePickler.Write state "subtype" t
                              else
  