anchor.diff:    if (ResFilename<>'') and (ResLine>=0) then
     begin
       MsgStatus(Format(msgStatusGotoFileLineCol, [ResFilename, ResLine+1, ResCol+1]));
  -    Frame:= FindFrameOfFilename(ResFilename);
  -    if Assigned(Frame) then
  +    bFound:= false;
  +
  +    //first check the active file-tab
  +    Frame:= CurrentFrame;
  +    if ExtractFileDir(ResFilename)='' then
  +      if SameFileName(ResFilename, ExtractFileName(Frame.FileName)) then
  +        bFound:= true;
  +
  +    //next, find in all file-tabs
  +    if not bFound then
  +    begin
  +      Frame:= FindFrameOfFilename(ResFilename, true); //'true' is important here
  +      bFound:= Assigned(Frame);
  +    end;
  +
  +    if bFound then
       begin
         Frame.SetFocus;
         Ed:= Frame.Editor;
  
positive.code:   ItemProp: TATListboxItemProp;
    Params: TAppVariantArray;
    Frame: TEditorFrame;
  begin
    Ed:= CurrentEditor;
  
    if Sender=ListboxOut then
      Prop:= @AppPanelProp_Out
    else
  
negative.code: end;
  
  
  function TfmMain.FindFrameOfFilename(const AFileName: string; AllowEmptyPath: boolean=false): TEditorFrame;
  var
    Frame: TEditorFrame;
    bEmptyPath, bOK: boolean;
  