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