anchor.diff:  
     let trySelectOverload (nodes: XmlNodeList, argsFromKey:string[]) =
   
  -      //printfn "AAA argsFromKey = %A" argsFromKey
         if (nodes.Count = 1) then Some nodes.[0] else
         
         let result = 
           [ for x in nodes -> x ] |> Seq.tryFind (fun curNode -> 
             let paramList = curNode.SelectNodes ("Parameters/*")
  -          
  -          Debug.WriteLine(sprintf "AAA paramList = %A" [ for x in paramList -> x.OuterXml ])
  -          
  -          (paramList <> null) &&
  -          (argsFromKey.Length = paramList.Count) 
  -          (* &&
  -          (p, paramList) ||> Seq.forall2 (fun pi pmi -> 
  -            let idString = GetTypeString pi.Type
  -            (idString = pmi.Attributes ["Type"].Value)) *) )
  +          (paramList <> null) && (argsFromKey.Length = paramList.Count) )
   
         match result with 
         | None -> None
  
positive.code:         signatureB.Append("Composition error: " + GLib.Markup.EscapeText(err)) |> ignore
      signatureB.ToString().Trim(), commentB.ToString().Trim()
  
    /// Format tool-tip that we get from the language service as string        
    //
    //TODO: Use the current projects policy to get line length
    // Document.Project.Policies.Get<TextStylePolicy>(types) or fall back to: 
    // MonoDevelop.Projects.Policies.PolicyService.GetDefaultPolicy<TextStylePolicy (types)
    let formatTip (ToolTipText(list)) =
  
negative.code:   let (|SimpleKey|_|) (key:string) = 
       if key.StartsWith "P:" || key.StartsWith "F:" || key.StartsWith "E:" then 
           let name = key.[2..]
           match name with 
           | MemberName(typeName,elemName) -> Some (typeName, elemName)
           | _ -> None
  