anchor.diff:      
     // vvzh: now we have to use SetCurrentDir in order to make ExpandFileName work
     if not fpgSetCurrentDir(dir) then
  -  begin
  -    Result := False;
       Exit; //==>
  -  end;
   
     // Add PathDelim to end if it doesn't yet exist
     FDirectoryName := IncludeTrailingPathDelimiter(dir);
  
positive.code:         AddEntry(SearchRec);
        end;
      end;
    finally
      SysUtils.FindClose(SearchRec);
    end;
  
negative.code:   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)
  