anchor.diff:  // ***************************** PUBLIC SECTION ***************************** \\
   // ************************************************************************** \\
   
  -constructor TCopyDir.Create(aSourceDir, aTargetDir: String);
  +constructor TCopyDir.Create(const aSourceDir, aTargetDir: String);
   begin
     self._fs := TFileSearcher.Create;
     self._fs.OnDirectoryFound := @self._DirFound;
  
positive.code:   end;
  end;
  
  procedure TCopyDir._CreateDir(aDir: String);
  begin
    if ForceDirectoriesUTF8(aDir) then
    begin
  
negative.code:     _fs: TFileSearcher;
      _log: TStringList;
  
      _files: TDirsArray;
      _directories: TDirsArray;
  
      _copied: Boolean;
      _dirsCreated: Boolean;
      _enumerated: Boolean;
  
      _copyingDone: TDirsArray;
      _copyingFailed: TDirsArray;
      _creatingDone: TDirsArray;
      _creatingFailed: TDirsArray;
  
      _preserveFileDates: Boolean;
      _preserveAttributes: Boolean;
  