anchor.diff:  
   /// Get tool tip at the specified location
   let getToolTipAtLocation (parseResults: ParseResults) line col lineText = async {
  -    let! (FSharpToolTipText els) = parseResults.CheckFile.GetToolTipText(line, col, lineText, [], FSharpTokenTag.IDENT)
  -    return Seq.map tooltipToString els |> Array.concat
  +    match findLongIdents(col - 1, lineText) with
  +    | None -> return [|"Cannot find ident for tooltip"|]
  +    | Some(col,identIsland) ->
  +        let! (FSharpToolTipText els) = parseResults.CheckFile.GetToolTipText(line, col, lineText, identIsland, FSharpTokenTag.Identifier)
  +        return Seq.map tooltipToString els |> Array.concat
   }
   
   let getCompletionsAtLocation (parseResults: ParseResults) (line: int) (col: int) lineText = async {
  
positive.code:                 | FSharpErrorSeverity.Error -> false
                  | FSharpErrorSeverity.Warning -> true
              })
  
  let findLongIdentsAndResidue (col: int, lineStr:string) =
    let lineStr = lineStr.Substring(0, col)
  
negative.code:         [| match data.ParamName with
             | Some x -> yield x + ": " + data.MainDescription
             | None -> yield data.MainDescription
             match data.XmlDoc with
             | FSharpXmlDoc.Text doc -> yield doc
             | _ -> ()
  