anchor.diff:  begin
     for str in fSrcs do if str <> '' then
     begin
  +    str := (CEMainForm.expandSymbolicString(str));
       if not
  +      // files are directly put in aList
         listAsteriskPath(str, aList, dExtList)
       then
         aList.Add(str);
  
positive.code: procedure TPathsOpts.assign(aValue: TPersistent);
  var
    src: TPathsOpts;
  begin
    if (aValue is TPathsOpts) then
    begin
  
negative.code:     procedure setSrcs(const aValue: TStringList);
      procedure setIncl(const aValue: TStringList);
      procedure setImpt(const aValue: TStringList);
      procedure strLstChange(sender: TObject);
    published
      property outputFilename: string read fFname write setFname;
      property objectDirectory: string read fObjDir write setObjDir;
  