Без ASSERT-а для отладки в итоге не обошлось...
## Код:
```
PROCEDURE TurnIntoAlien (VAR rd: Stores.Reader; cause: INTEGER);
   BEGIN
      HALT(100);
      rd.TurnIntoAlien(cause)
   END TurnIntoAlien;
```
Выявился стандартный косяк копипаста## Код:
```
rd.ReadString(e.title); IF ValidTitle(e.title) THEN TurnIntoAlien(rd, 101) END
```
