                        (mapping [:OtherInfo :OtherInfo-text-node] :OtherInfo)
                        (mapping [:Type :Type-text-node] :Type)
                        (mapping [:URL :URL-text-node] :Detail)))
+
+(foreach (as :Contact [:glue:Domains :AdminDomain :Services :ComputingService :Contact])
+         (in (as :ComputingService [:glue:Domains :AdminDomain :Services :ComputingService])
+             (add-association :HasContactServices
+                              (mapping :Contact :Contact)
+                              (mapping :ComputingService :Service))))
 
 (foreach [:glue:Domains :AdminDomain :Services :ComputingService :ComputingEndpoint]
          (add-instance :Endpoint

                       (mapping [:Type :Type-text-node] :Type)
                       (mapping [:URL :URL-text-node] :Detail)))

(foreach [:glue:Domains :AdminDomain :Services :Service]
         (add-instance :Service
                       (mapping [:ID :ID-text-node] :ID)

                       (mapping [:Latitude :Latitude-text-node] :Latitude)
                       (mapping [:Longitude :Longitude-text-node] :Longitude)))

(foreach (as :Location [:glue:Domains :AdminDomain :Services :ComputingService :Location])
         (in (as :ComputingService [:glue:Domains :AdminDomain :Services :ComputingService])
             (add-association :PrimaryLocatedAtServiceLocation
                              (mapping :Location :Location)
                              (mapping :ComputingService :Service))))

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