anchor.diff:      if aFilename = absSrc then exit;
     end;
     fSrcs.Add(ExtractRelativepath(fBasePath,aFilename));
  +  updateDcd;
   end;
   
   procedure TCEProject.setRoot(const aValue: string);
  
positive.code:     fCanBeRun: boolean;
      procedure updateOutFilename;
      procedure doChanged;
      procedure setLibAliases(const aValue: TStringList);
      procedure subMemberChanged(sender : TObject);
      procedure setOptsColl(const aValue: TCollection);
  
negative.code:   hasPatched: Boolean;
  begin
    patchPlateformPaths(fSrcs);
    updateDcd;
    doChanged;
    fModified := false;
    hasPatched := false;
  