anchor.diff:                  | _ -> acc )
           processNodes sb (element.Nodes())
   
  -    let getTooltipSummary (addStyle: Style -> string) (str:string) = 
  +    let getTooltipSummary (style: Style -> string) (str:string) = 
           try let xdoc =
                   if str.StartsWith("<?xml") then XElement.Parse(str)
                   else XElement.Parse("<Root>" + str + "</Root>")
  
positive.code:                        
                         | "see" -> match element |> attribute "cref" with
                                    | null -> acc
                                    | attrib -> let fragment = attrib.Value |> (strip "T:" >> unqualifyName >> Style.Type >> addStyle)
                                                acc.Append(fragment)
                                    
                         | "paramref" -> match element |> attribute "name" with
                                         | null -> acc
                                         | attrib -> let fragment = attrib.Value |> (Style.Parameter >> addStyle)
                                                     acc.Append(fragment)
                                            
                         | "c" -> let fragment = element.Value |> (GLib.Markup.EscapeText >> Style.Code >> addStyle)
                                  acc.Append(fragment)
                         | "attribution" -> acc //skip attribution elements
                         | unknown -> 
  
negative.code:             //if no nodes were found then return the string verbatim
              let anyNodes = xdoc.Descendants() |> Enumerable.Any
              if not anyNodes then str else
              let summary = xdoc.Descendants(xn "summary") |> firstOrDefault |> elementValue style
  
              xdoc.Elements(xn "exception")
              |> Seq.iteri (fun i element -> 
                  if i = 0 then summary.Append("\n\nExceptions\n") |> ignore
                  match element |> attribute "cref" with 
                  | null -> ()
                  | cref -> let exceptionType = cref.Value |> (strip "T:" >> unqualifyName >> Style.Exception >> style)
                            if i > 0 then summary.AppendLine() |> ignore
                            summary.AppendFormat( "{0}: {1}", exceptionType, element.Value) |> ignore)
  
              if summary.Length > 0 then summary.ToString()
              //If theres nothing in the StringBuilder then there's either no summary or exception elements,
  