anchor.diff:                  Path.Combine(di.FullName,path) |> Path.GetFullPath
   
                 RelativePath = path.Replace("/","\\")
  -              Name = forceGetInnerText node "Name"
  -              GUID = forceGetInnerText node "Project" |> Option.map Guid.Parse }]
  +              Name = forceGetName node "Name"
  +              GUID = (forceGetInnerText node "Project") |> Option.map Guid.Parse }]
   
       let replaceNuGetPackagesFile project =
           let noneAndContentNodes = 
  
positive.code:                     Some <| fi.Name.Replace(fi.Extension,"")
                  | None -> None
  
          [for node in project.Document |> getDescendants "ProjectReference" -> 
              let path =
                  let normalizedPath = node.Attributes.["Include"].Value |> normalizePath 
  
negative.code:         | _ -> Guid.Empty
  
      let getInterProjectDependencies project =
          let forceGetName node name =
              match node |> getNode name with 
              | Some n -> Some n.InnerText
              | None ->
  