anchor.diff:                                                       |> dict
           applicationMap
   
  -    member this.ProjectMap : System.Collections.Generic.IDictionary<Anthology.ProjectId, Project> = 
  +    member this.ProjectMap : System.Collections.Generic.IDictionary<Anthology.ProjectId, Project> =
           if projectMap |> isNull then
               projectMap <- anthology.Projects |> Seq.map (fun x -> x.ProjectId, { Graph = this; Project = x } )
                                                |> dict
  
positive.code:         let xnuspec = System.Xml.Linq.XDocument.Load (nuspecFile.FullName)
          Package.GetPackageDependencies xnuspec |> Set.map (fun x -> { Graph = this.Graph
                                                                        Package = x })
          
      member this.FxAssemblies : Assembly set =
          let pkgsDir = Env.GetFolder Env.Folder.Package
          let pkgDir = pkgsDir |> IoHelpers.GetSubDirectory (this.Package.toString)
  
negative.code:         this.Application.Projects |> Set.map (fun x -> this.Graph.ProjectMap.[x])
  
      member this.Delete () =
          let newAntho = { this.Graph.Anthology
                           with Applications = this.Graph.Anthology.Applications |> Set.remove this.Application }
          Graph(newAntho)
  
  