anchor.diff:      fSymbols[CPR] := na;
       fSymbols[CPN] := na;
       fSymbols[CPN] := na;
  +    fSymbols[CPO] := na;
       fSymbols[CPFS]:= na;
     end;
   end;
  
positive.code:         'CPF',  'CurrentProjectFile':   result += fSymbols[CPF];
          'CPFS', 'CurrentProjectFiles':  result += fSymbols[CPFS];
          'CPN',  'CurrentProjectName':   result += fSymbols[CPN];
          'CPP',  'CurrentProjectPath':   result += fSymbols[CPP];
          'CPR',  'CurrentProjectRoot':   result += fSymbols[CPR];
        end;
  
negative.code:       fSymbols[CPP] := ExtractFilePath(fProj.fileName);
        fSymbols[CPR] := fProj.RootFolder;
        fSymbols[CPN] := extractFileName(fProj.fileName);
        fSymbols[CPO] := fProj.outputFilename;
        extLen := length(ExtractFileExt(fSymbols[CPN]));
        fSymbols[CPN] := fSymbols[CPN][1..length(fSymbols[CPN])-extLen];
      end else begin
  