## Код:
```
PROCEDURE (rd: StdReader) ReadRun (OUT attr: Attributes);
      VAR t: StdModel; a0: Attributes; u0,u, trailer: Piece; pos: INTEGER;
   BEGIN
      t := rd.base;
      IF rd.era # t.era THEN Reset(rd) END;
      a0 := rd.piece.attr; trailer := t.trailer;
      u := rd.piece;u0:=u; pos := rd.pos - rd.pieceOffset;
      WHILE (u.attr = a0) & ~(u IS ViewPiece) & (u # trailer) DO
         INC(pos, u.len); u := u.next
      END;
      IF (u = u0)&(u # trailer) THEN INC(pos, u.len); u := u.next; END; 
      rd.piece := u; rd.pos := pos; rd.pieceOffset := 0; 
      attr:=u.attr;
   END ReadRun;
```
Please check this temporary fix