   ;; set the coordinate system based on the spatial coverage for output
   (let [geom (d/calculate-derived (umm-s/set-coordinate-system coordinate-system geom))]
     (list
-     (x/element :gmd:geographicElement {} (geometry->iso-geom (geometry->iso-mbr geom)))
+     (x/element :gmd:geographicElement {} (geometry->iso-geom (r/mbr geom)))
      (x/element :gmd:geographicElement {} (geometry->iso-geom geom)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

            [cmr.spatial.mbr :as mbr]
            [cmr.spatial.point :as p]
            [cmr.spatial.polygon :as poly]
            [cmr.umm.collection :as c]
            [cmr.umm.iso-mends.core :as core]
            [cmr.umm.spatial :as umm-s]))

  []
  (str "geo-" (swap! gml-id-state inc)))

(defmulti geometry->iso-geom
  "Returns content of a ISO MENDS extent element for an individual UMM
  spatial coverage geometry record. Dispatches on type."
  type)

;;; Rendering gmd:geographicElement content

