anchor.diff:    Result := FNameItems.Last;
   end;
   
  -function TmwSimplePasParEx.TNameList.GetNames(const Index: Integer): string;
  +function TmwSimplePasParEx.TNameList.GetOriginalNames(const Index: Integer): string;
   var
     I: Integer;
     NameItem: TNameItem;
  
positive.code:   end;
  
    TmwSimplePasParEx = class(TmwSimplePasPar)
    strict protected type
      TNameListStack = class;
      TNameList = class
      strict private type
        TNameItem = class
        strict private type
          TNameItemToken = class
          strict private
            FTokenFileName: string;
  
negative.code:   NameList: TNameList;
  begin
    if FNameListStack.Count > 0 then
      for NameList in FNameListStack.ToArray do
        if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
          NameList.AddToken;
    inherited;
  end;
  
  