Александр, не могу сказать, почему не срабатывает clean, возможно, в текстовых моделях это недоработано... Но ведь можно пойти обходным путем - до изменения размера запоминать "грязность", а затем принудительно ее возвращать в прежнее состояние... Правда, стандартная SetDirty позволяет выставлять только в TRUE, ну так можно позаимствовать более низкоуровневый код из ее нутра:
## Код:
```
PROCEDURE SetDirty* (m: Model);
   (** pre: m # NIL **)
      VAR seq: ANYPTR;
   BEGIN
      ASSERT(m # NIL, 20);
      IF m.Domain() # NIL THEN seq := m.Domain().GetSequencer() ELSE seq := NIL END;
      IF seq # NIL THEN
         WITH seq: Sequencers.Sequencer DO
            seq.SetDirty(TRUE)
         ELSE
         END
      END
   END SetDirty;
```
