anchor.diff:    SearchRec: TSearchRec;
     dir: TfpgString; //  to prevent FDirectoryName from having incorrect value
   begin
  +  Result:=False;
     // default parameter value is current directory
     if aDirectory <> '' then
       dir := fpgExpandFileName(aDirectory)
  
positive.code:         AddEntry(SearchRec);
        end;
      end;
    finally
      SysUtils.FindClose(SearchRec);
    end;
  
negative.code:     
    // vvzh: now we have to use SetCurrentDir in order to make ExpandFileName work
    if not fpgSetCurrentDir(dir) then
      Exit; //==>
  
    // Add PathDelim to end if it doesn't yet exist
    FDirectoryName := IncludeTrailingPathDelimiter(dir);
  