anchor.diff:  
           let line, col, lineStr = editor.GetLineInfoFromOffset offset
   
  +        let tryKeyword =
  +           let ident = Parsing.findLongIdents(col, lineStr)
  +           match ident with
  +           | Some (col, identIsland) ->
  +             match identIsland with
  +             | [single] when Lexhelp.Keywords.keywordNames |> List.contains single ->
  +               let startOffset = editor.LocationToOffset(line, col - single.Length+1)
  +               let endOffset = startOffset + single.Length
  +               let segment = Text.TextSegment.FromBounds(startOffset, endOffset)
  +               let tip = SymbolTooltips.getKeywordTooltip single
  +               Some (TooltipItem( tip, segment :> Text.ISegment))
  +             | _ -> None
  +           | None -> None
  +
           let result =
  +            match tryKeyword with
  +            | Some keyword -> Tooltip keyword
  +            | None ->
               //operate on available results no async gettypeparse results is available quick enough
               let parseAndCheckResults = MDLanguageService.Instance.GetTypedParseResultIfAvailable (projectFileName, fileName, docText, AllowStaleResults.MatchingSource)
               Async.RunSynchronously (
                   async {
  -                    try
  +                    try 
                           LoggingService.LogInfo "TooltipProvider: Getting tool tip"
                           let! symbol = parseAndCheckResults.GetSymbolAtLocation(line, col, lineStr)
   
  
positive.code: open MonoDevelop.Ide.CodeCompletion
  open MonoDevelop.Ide.Editor
  open MonoDevelop.Ide.Extensions
  open Microsoft.FSharp.Compiler.SourceCodeServices
  open MonoDevelop.FSharp.Symbols
  open ExtCore.Control
  
negative.code:                         | Some s -> 
                               let tt = SymbolTooltips.getTooltipFromSymbolUse s
                               match tt with
                               | ToolTip _ as tip ->
                                   //get the TextSegment the the symbols range occupies
                                   let textSeg = Symbols.getTextSegment editor symbol.Value col lineStr
                                   let tooltipItem = TooltipItem(tip, textSeg)
                                   return Tooltip tooltipItem
                               | EmptyTip -> return ParseAndCheckNotFound //TODO Support non symbol tooltips?
                          | None -> return ParseAndCheckNotFound
  