anchor.diff:  begin
    // DR 2002-01-11
     Expected(ptProgram);
  -  QualifiedIdentifier;
  +  UnitName;
     if TokenID = ptRoundOpen then
     begin
       NextToken;
  
positive.code: procedure TmwSimplePasPar.PackageFile;
  begin
    ExpectedEx(ptPackage);
    Expected(ptIdentifier);
  
    {$IFDEF D8_NEWER}
    while Lexer.TokenID = ptPoint do
    begin
      NextToken;
      Expected(ptIdentifier);
    end;
    {$ENDIF}
  
    SEMICOLON;
    case ExID of
      ptRequires:
  
negative.code: procedure TmwSimplePasPar.LibraryFile;
  begin
    Expected(ptLibrary);
    UnitName;
    SEMICOLON;
    ProgramBlock;
    Expected(ptPoint);
  