anchor.diff:    override x.ToString () = x.Path
   
   [<Serializable>]
  -type ForeignAidWorker () =
  +type OrderAssemblyReferences () =
   
     let mkGraph (seeds: seq<AssemblyRef>) : Digraph<AssemblyRef> =
   
  -    let findRef (s: seq<AssemblyRef>) (m: AssemblyName) =
  +    let findRef (s: seq<AssemblyRef>) (m: AssemblyNameReference) =
         match Seq.tryFind (fun r -> r.Name = m.Name) seeds with
         | None    -> s
         | Some ar -> Seq.append (Seq.singleton ar) s
   
       let processNode (g: Digraph<AssemblyRef>) (n: AssemblyRef) =
  -      let depNames = n.Assembly.GetReferencedAssemblies ()
  +      let depNames = n.Assembly.MainModule.AssemblyReferences.ToArray()
         let depRefs = Array.fold findRef Seq.empty depNames
         Seq.fold (fun h c -> Digraph.addEdge (n, c) h) g depRefs
   
  
positive.code: 
  open System.Reflection
  open System
  
  module Object = 
    let eqHack (f: 'a -> 'b) (x: 'a) (yobj: Object) : Boolean =
  
negative.code: type AssemblyRef =
    {
      Path: String
      Assembly: AssemblyDefinition
      Name: String
    }
  
  