anchor.diff:      and getInstanceWriter (t : Type) = fun() ->
           match t.GetMethod(writerFuncName, instanceFlags, null, Type.EmptyTypes, null) |> Utils.toOption with
           | Some func ->
  +            let inner = ValueTypeSerializer.getInnerTextWriter XmlConfig.Instance.SpecialCharEncoding
               let writer = (fun a (w : TextWriter) x ->
                   let obj = func.Invoke(x, null)
  -                ValueTypeSerializer.writeStringObject a w obj)
  +                inner a w obj)
               if not XmlConfig.Instance.UseAttributes then
                   injectWriteTag writer
               else getInjectWriter t writer
  
positive.code:     /// Try to determine one of a special serialization
      /// function, i.e. Exception, Uri
      let getSpecialWriters (t : Type) = fun () ->
          if t = typeof<Uri> then Some <| injectWriteTag ValueTypeSerializer.writeStringObject
          elif isOrDerived t typeof<Exception> then Some <| injectWriteTag ValueTypeSerializer.writeException
          elif t <> typeof<obj> && t.IsInstanceOfType(typeof<Type>) then Some <| injectWriteTag ValueTypeSerializer.writeType
          else None
  
negative.code:     and getStaticWriter (t : Type) = fun () ->
          match t.GetMethod(writerFuncName, staticFlags, null, [| t |], null) |> Utils.toOption with
          | Some func ->
              let inner = ValueTypeSerializer.getInnerTextWriter XmlConfig.Instance.SpecialCharEncoding
              let writer = (fun a (w : TextWriter) x -> 
                  let obj = func.Invoke(null, [| x |])
                  inner a w obj)
              if not XmlConfig.Instance.UseAttributes then
                  injectWriteTag writer
              else getInjectWriter t writer
  