anchor.diff:          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
  +  /// 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)) =
  
positive.code: 
    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)) *) )
  
        match result with 
        | None -> None
  
negative.code:   /// Return the XmlDocumentationProvider for an assembly
    let findXmlDocProviderForAssembly file  = 
        let tryExists s = try if File.Exists s then Some s else None with _ -> None
        let xmlDocFilename = 
            match tryExists (Path.ChangeExtension(file,"xml")) with 
            | Some x -> Some x 
            | None -> tryExists (Path.ChangeExtension(file,"XML"))
        match xmlDocFilename with 
        | None -> None
        | Some xmlFile ->
        let docReader = xmlDocProvider xmlFile
  