anchor.diff:  var
     NameList: TNameList;
   begin
  -  for NameList in FNameListStack.ToArray do
  -    if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
  -      NameList.AddToken;
  +  if FNameListStack.Count > 0 then
  +  begin
  +    for NameList in FNameListStack.ToArray do
  +      if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
  +        NameList.AddToken;
  +  end;
  +
     inherited;
   end;
   
  
positive.code:       function ExtractNames: TNameList; inline;
        function PeekNames: TNameList; inline;
        function ToArray: TArray<TNameList>; inline;
      end;
    strict private
      FNameListStack: TNameListStack;
  
negative.code: 
  { TPasNamesBuilder.TNameListStack }
  
  function TmwSimplePasParEx.TNameListStack.Count: Integer;
  begin
    Result := FNameListStack.Count;
  end;
  
  constructor TmwSimplePasParEx.TNameListStack.Create(
    const AParser: TmwSimplePasParEx);
  begin
  