anchor.diff:      member ri.Content =
           match ri.ResContent with
           | null ->
  -            let s = UTF8Encoding(false, true).GetString(ri.ResContentBytes)
  -            ri.ResContent <- s
  -            s
  +            try
  +                let s = UTF8Encoding(false, true).GetString(ri.ResContentBytes)
  +                ri.ResContent <- s
  +                s
  +            with e ->
  +                failwithf "Encoding problem in resource [%s] in assembly [%s]: %O"
  +                    ri.ResAssembly ri.ResName e
           | s -> s
   
       member ri.ContentType = ri.ResContentType
  
positive.code: 
  type EmbeddedFile =
      {
          mutable ResContent : string
          ResContentBytes : byte []
          ResContentType : string
  
negative.code:                 readResourceBytes resourceName def
                  |> Option.map (fun c ->
                      {
                          ResAssembly = string def.FullName
                          ResContent = null
                          ResContentBytes = c
                          ResContentType = contentType
  