                              @pkeys)) ttl)))
       (swap! mkeys #(dissoc % mkey))
       (catch Exception e
-        (info e "Cache flushing exception")))))
+        (error e "Cache flushing exception")))))
 
 (defn- run-delayer!
   [rollup fn-flusher]

                         (with-meta pkeys {:fn-flusher fn-flusher
                                           :delayer delayer
                                           :flusher flusher
                                           :data (atom {})})))
                (assoc % mkey pkeys))))
    (get @mkeys mkey)))


(defn- run-flusher!
  [mkeys]
  (info "Flushing the store cache...")
  (try
    (let [sorted-mkeys (sort-by #(:rollup (meta (get mkeys (first %)))) @mkeys)]
      (doseq [[mkey pkeys] sorted-mkeys]
        (let [m (meta @pkeys)
              delayer (get m :delayer nil)
              flusher (get m :flusher nil)]
          (when delayer
            (future-cancel delayer)
            (when flusher
              (deref flusher))))))
    (info "The store cache has been flushed")
    (catch Exception e
      (error e "Cache flushing exception"))))

(defn in-memory-cache
  [config]
