anchor.diff:  end;
   
   
  -function TfmMain.FindFrameOfFilename(const AName: string): TEditorFrame;
  -var
  -  F: TEditorFrame;
  +function TfmMain.FindFrameOfFilename(const AFileName: string): TEditorFrame;
  +var
  +  Frame: TEditorFrame;
  +  bEmptyPath, bOK: boolean;
     i: integer;
   begin
     Result:= nil;
  -  if AName='' then exit;
  +  if AFileName='' then exit;
  +  bEmptyPath:= ExtractFileDir(AFileName)='';
  +
     for i:= 0 to FrameCount-1 do
     begin
  -    F:= Frames[i];
  -    if SameFileName(AName, F.FileName) then
  -      exit(F);
  -    if not F.EditorsLinked then
  -      if SameFileName(AName, F.FileName2) then
  -        exit(F);
  +    Frame:= Frames[i];
  +    if bEmptyPath then
  +    begin
  +      bOK:= SameFileName(AFileName, ExtractFileName(Frame.FileName));
  +      if not bOK then
  +        if not Frame.EditorsLinked then
  +          bOK:= SameFileName(AFileName, ExtractFileName(Frame.FileName2));
  +    end
  +    else
  +    begin
  +      bOK:= SameFileName(AFileName, Frame.FileName);
  +      if not bOK then
  +        if not Frame.EditorsLinked then
  +          bOK:= SameFileName(AFileName, Frame.FileName2);
  +    end;
  +    if bOK then
  +      exit(Frame);
     end;
   end;
   
  
positive.code:   Ed: TATSynEdit;
    ItemProp: TATListboxItemProp;
    Params: TAppVariantArray;
  begin
    Ed:= CurrentEditor;
  
  
negative.code:   if (ResFilename<>'') and (ResLine>=0) then
    begin
      MsgStatus(Format(msgStatusGotoFileLineCol, [ResFilename, ResLine+1, ResCol+1]));
      Frame:= FindFrameOfFilename(ResFilename);
      if Assigned(Frame) then
      begin
        Frame.SetFocus;
        Ed:= Frame.Editor;
        Ed.DoCaretSingle(ResCol, ResLine);
        Ed.DoGotoCaret(cEdgeTop);
        Ed.Update;
  