anchor.diff:       String.Format("# {0} \"{1}\"\n{2}" ,line,file.FullPath,selection)  
   
     let ensureCorrectDirectory _ =
  -    match getCorrectDirectory() with 
  -    | Some path -> sendCommand ("#silentCd @\"" + path + "\";;")
  -    | _ -> ()
  +    getCorrectDirectory()
  +    |> Option.iter (fun path -> sendCommand ("#silentCd @\"" + path + "\";;") )
       
     //let handler = 
     do Debug.WriteLine ("InteractivePad: created!")
  
positive.code:        IdeApp.Workbench.ActiveDocument.FileName.FileName = null then false
      else
        let file = IdeApp.Workbench.ActiveDocument.FileName.ToString()
        CompilerArguments.supportedExtension(IO.Path.GetExtension(file))
  
    let getCorrectDirectory () = 
      if IdeApp.Workbench.ActiveDocument <> null && isInsideFSharpFile() then
  
negative.code:     Debug.WriteLine (sprintf "Interactive: Loading font '%s'" fontName)
      let font = Pango.FontDescription.FromString(fontName)
      view.SetFont(font)
  
    member x.SendSelection() = 
      if x.IsSelectionNonEmpty then
        let sel = IdeApp.Workbench.ActiveDocument.Editor.SelectedText
  