anchor.diff:                                              else None)
                                       |> Seq.toList
   
  -                                return! Some (sym, entitiesNames) |> liftMaybe
  +                                let! checkResults = 
  +                                    vsLanguageService.ParseFileInProject (doc.FullName, newWord.Snapshot.GetText(), project) |> liftAsync
  +
  +                                return! 
  +                                    checkResults.ParseTree 
  +                                    |> Option.map (fun tree ->
  +                                        let line, column = 
  +                                            match Ast.findNearestOpenStatementBlock (codeGenService.ExtractFSharpPos point) tree with
  +                                            | Some pos -> pos.Line, pos.Column
  +                                            | None -> 1, 1
  +                                        sym, entitiesNames, line, column)
  +                                    |> liftMaybe
                       }
                       |> Async.map (fun result -> 
                           state <- result
  
positive.code:         snapshotSpan.Snapshot.TextBuffer.Replace (snapshotSpan.Span, fullSymbolName) |> ignore
          transaction.Complete()
  
      let openNamespaceAction snapshot ns =
          { new ISmartTagAction with
              member x.ActionSets = null
              member x.DisplayText = "open " + ns
              member x.Icon = null
              member x.IsEnabled = true
              member x.Invoke() = openNamespace snapshot ns
          }
  
      let qualifySymbolAction snapshotSpan fullSymbolName =
  
negative.code:     let docEventListener = new DocumentEventListener ([ViewChange.layoutEvent view; ViewChange.caretEvent view], 
                                                        500us, updateAtCaretPosition)
  
      let openNamespace (snapshotSpan: SnapshotSpan) line col ns = 
          use transaction = textUndoHistory.CreateTransaction(Resource.recordGenerationCommandName)
          let line = snapshotSpan.Snapshot.GetLineFromLineNumber(line).Start.Position + col
          //buffer.Insert(currentLine, stub) |> ignore
          snapshotSpan.Snapshot.TextBuffer.Insert (line, "open " + ns) |> ignore
          transaction.Complete()
  
      let fullyQualifySymbol (snapshotSpan: SnapshotSpan) fullSymbolName = 
  