Копаясь в Stores, обнаружил неувязочку в документации модуля Stores. Привожу весь абзац целиком и выделяю цветом:

> -- Цитата:
> Inspecting a store setA store set cannot be inspected programmatically beyond what is offered by procedure Joined. However, the debugger allows to iterate over all stores in a store set. The stores which belong to the same store set are linked in a circular list. As soon as a domain object is associated to the set, the links are set to NIL and each store in the set refers to the new domain object. To iterate over a store set the debugger has to be called before the store set is bound. Then, the stores can be iterated with the store's next field. Listing 2 shows a simple procedure which generates an empty text view and then opens the debugger. , you see that the following seven stores are joined in one set: TextModels.Model, TextModels.Attributes, TextRulers.Ruler, TextRulers.Style, TextRulers.Attributes, TextViews.View and TextControllers.Controller.

Но ведь ни Views.Views, ни его предок Stores.Store не имеют поля next! И описанный способ обхода хранилищ не относится к текущему положению дел. Может, это какой-то старый кусок, относящийся ко временам, когда поле next существовало?

Видимо, имеется в виду поле dlink. Но тут ещё проблема - если поступить так, как описано в документации (откомпилировав и запустив пример Test), то мы не сможем уйти дальше первого dlink, так как его поле dlink = NIL.