   (info "Transforming" (count concepts-tuples) "concept(s) to" format)
   (let [mdb-context (context->metadata-db-context context)
         [t1 concepts] (u/time-execution
-                        (metadata-db/get-concepts mdb-context concepts-tuples allow-missing?))
+                        (doall (metadata-db/get-concepts mdb-context concepts-tuples allow-missing?)))
         [t2 values] (u/time-execution
                       (doall (pmap #(concept->value-map context % format) concepts)))]
     (debug "get-concept-revisions time:" t1


(defmethod extract-access-value "application/echo10+xml"
  [concept]
  (when-let [[_ restriction-flag-str] (re-matches #"(?s).*<RestrictionFlag>(.+)</RestrictionFlag>.*"
                                                  (:metadata concept))]
    (Double. ^String restriction-flag-str)))

(defmethod extract-access-value "application/dif+xml"
  [concept]

   (info "Getting latest version of" (count concept-ids) "concept(s) in" format "format")
   (let [mdb-context (context->metadata-db-context context)
         [t1 concepts] (u/time-execution
                         (doall (metadata-db/get-latest-concepts mdb-context concept-ids true)))
         [t2 concepts] (u/time-execution (if skip-acls?
                                           concepts
                                           (doall (acl-service/filter-concepts
                                                    context
                                                    (pmap add-acl-enforcement-fields concepts)))))
         ;; Filtering deleted concepts
         [t3 concepts] (u/time-execution (doall (filter #(not (:deleted %)) concepts)))
         [t4 values] (u/time-execution
                       (doall (pmap #(concept->value-map context % format) concepts)))]
     (debug "get-latest-concepts time:" t1
