                        (mapping [:Latitude :Latitude-text-node] :Latitude)
                        (mapping [:Longitude :Longitude-text-node] :Longitude)))
 
+(foreach (as :Location [:glue:Domains :AdminDomain :Services :Service :Location])
+         (in (as :Service [:glue:Domains :AdminDomain :Services :Service])
+             (add-association :PrimaryLocatedAtServiceLocation
+                              (mapping :Location :Location)
+                              (mapping :Service :Service))))
+
 (foreach [:glue:Domains :AdminDomain :Services :Service :Contact]
          (add-instance :Contact
                        (mapping [:LocalID :LocalID-text-node] :ID)
                        (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 :Service :Contact])
+         (in (as :Service [:glue:Domains :AdminDomain :Services :Service])
+             (add-association :HasContactServices
+                              (mapping :Contact :Contact)
+                              (mapping :Service :Service))))
 
 (foreach [:glue:Domains :AdminDomain :Services :Service :Endpoint]
          (add-instance :Endpoint

                       (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)
