anchor.diff:      let property = 
           match property with  
           | [p] -> p :> Mono.Cecil.PropertyReference
  -        | _ -> failwithf "Could not find unique property %s" reference
  +        | _ -> failwithf "Could not find property %s" reference
       
       property.DeclaringType <- ty
       property
positive.code: 
  let ParseMethodReference scope reference : Mono.Cecil.MethodReference = 
      let (ty, name, genargs, args) = Parser.run Parser.pmethod reference
  
      let ty = ResolveType scope ty
      let def = ty.Resolve()
  
      let genargs = genargs |> Option.bind(Seq.map (ResolveType scope) >> Some)
      let methods = def.Methods |> Seq.filter (fun m -> m.Name = name)
  
      let meth = 
          methods
          |> Seq.filter(fun m ->
              let args = args |> Seq.map (ResolveType (MethodScope m))
              let parameters = m.Parameters |> Seq.map(fun p -> p.ParameterType)
              (Seq.compareWith(fun (arg : Mono.Cecil.TypeReference) (param : Mono.Cecil.TypeReference) -> if arg.FullName = param.FullName then 0 else 1) args parameters) = 0)
          |> Seq.toList
  
      let meth = 
          match meth with  
          | [m] -> m
          | _ -> failwithf "Could not find unique method %s" reference
      
      let currentModule = GetModule scope
      let meth =
          if meth.Module = currentModule then
              meth :> Mono.Cecil.MethodReference
          else
              currentModule.Import(meth)
  
      meth.DeclaringType <- ty        
  
      match genargs with 
      | None -> meth
      | Some genargs ->
          let meth = Mono.Cecil.GenericInstanceMethod(meth)
          genargs |> Seq.iter(fun arg -> meth.GenericArguments.Add(arg))
          meth :> Mono.Cecil.MethodReference
  
  
  let ParsePropertyReference scope reference = 
      let (ty, name, args) = Parser.run Parser.pproperty reference
  
negative.code:     let field = 
          match fields with  
          | [f] -> f
          | _ -> failwithf "Could not find field %s" reference
          
      let currentModule = GetModule scope
      let field =
  