     (validate-concept concept)
     (let [{:keys [concept-type concept-id revision-id]} concept
           concepts (:concepts this)
-          concept-map (get @concepts concept-type)
+          concept-map (get @concepts (concept-type-prefix concept-type))
           revisions (get concept-map concept-id [])]
       (when (and revision-id
                  (not= (count revisions) revision-id))

            [cmr.common.services.errors :as errors]
            [clojure.pprint :refer (pprint pp)]))

;;; Uitility methods

(defn- save 
  "Save a concept"
  [concept-atom concept concept-type concept-map concept-id revisions]
  (let [new-revisions (conj (or revisions []) concept)
        new-concept-map (assoc concept-map concept-id new-revisions)]
    (swap! concept-atom assoc concept-type new-concept-map)
    (dec (count new-revisions))))

(defn- validate-concept

(defn create-db
  "Creates the in memory store."
  []
  (map->InMemoryStore {:concept-id-seq (atom 0) :concepts (atom {})}))                      
  