                        (mapping [:Level :Level-text-node] :Level)
                        (mapping [:UserManager :UserManager-text-node] :UserManager)
                        (mapping [:Member :Member-text-node] :Member)))
+
+(foreach (as :Association [:glue:Domains :UserDomain :Associations :UserDomainID :UserDomainID-text-node])
+         (in (as :UserDomain [:glue:Domains :UserDomain])
+             (add-association :ParticipatesInUserDomainToUserDomain
+                              (mapping-pk :Association :UserDomain)
+                              (mapping :UserDomain :UserDomain))))

                       (mapping [:LocalID :LocalID-text-node] :LocalID)
                       (mapping [:Scheme :Scheme-text-node] :Scheme)
                       (mapping [:Rule-text-node :Rule] :Rule)))

(foreach [:glue:Domains :AdminDomain :Services :ComputingService :ComputingShares :ComputingShare]
         (add-instance :Share

                       (mapping [:DowntimeEnd :DowntimeEnd-text-node] :DowntimeEnd)
                       (mapping [:DowntimeInfo :DowntimeInfo-text-node] :DowntimeInfo)))

(foreach (as :Endpoint [:glue:Domains :AdminDomain :Services :ComputingService :ComputingEndpoint])
         (in (as :ComputingService [:glue:Domains :AdminDomain :Services :ComputingService])
             (add-association :ExposesServiceEndpoint
                              (mapping :Endpoint :Endpoint)
                              (mapping :ComputingService :Service))))

(foreach [:glue:Domains :AdminDomain :Services :ComputingService :ComputingEndpoint :AccessPolicy]
         (add-instance :AccessPolicy
                       (mapping [:CreationTime-attribute] :CreationTime)
