anchor.diff:      member this.GetOutputDirectory buildConfiguration =
           let startingData = Map.empty<string,string>.Add("Configuration", buildConfiguration)
   
  -        this.GetProperty "OutputPath" startingData
  +        this.GetPropertyWithDefaults "OutputPath" startingData
           |> function
               | None -> failwithf "Unable to find %s output path node in file %s" buildConfiguration this.FileName
               | Some s -> s.TrimEnd [|'\\'|] |> normalizePath
  
positive.code:         |> getDescendants "PropertyGroup"
          |> Seq.fold handleElement defaultProperties
          |> Map.tryFind propertyName
  
      member this.Name = FileInfo(this.FileName).Name
  
  
negative.code: 
              if !isPaketNode = paketOnes then yield node]
  
      member this.GetPropertyWithDefaults propertyName defaultProperties =
          let rec handleElement (data : Map<string, string>) (node : XmlNode) =
              let processPlaceholders (data : Map<string, string>) text =
                  let getPlaceholderValue (name:string) =
  