anchor.diff:  
   { EParserException }
   
  -constructor EParserException.Create(Line, Col: Integer);
  -begin
  -  inherited Create('Parser fault');
  +constructor EParserException.Create(Line, Col: Integer; Msg: string);
  +begin
  +  inherited Create(Msg);
     FLine := Line;
     FCol := Col;
   end;
  
positive.code:   strict private
      FLine, FCol: Integer;
    public
      constructor Create(Line, Col: Integer); reintroduce;
  
      property Line: Integer read FLine;
      property Col: Integer read FCol;
  
negative.code:     end;
    except
      on EListError do
        raise EParserException.Create(Lexer.PosXY.Y, Lexer.PosXY.X, 'Unknown Parser Fault');
    end;
  
    Assert(FStack.Count = 0);
  