PROCEDURE GetStoreWindow* (s: Stores.Store; OUT res: Windows.Window);
      VAR    domain: Stores.Domain; w: Windows.Window;
   BEGIN
      domain := s.Domain(); ASSERT(domain # NIL, 20);
      IF Windows.dir # NIL THEN w := Windows.dir.First() ELSE w := NIL END;
      WHILE (w # NIL) & ~(w.doc.Domain() = domain) DO
         w := Windows.dir.Next(w)
      END;
      res := w
   END GetStoreWindow;