                              (and cause
                                   (str " caused by: ") (.getMessage cause)))]
             (println "Had some trouble in the scrape loop:" err-msg))
-          (Thread/sleep (* 60 1000)))))))
+          (Thread/sleep scrape-period))))))


(defn scrape-loop!
  []
  (let [backup-imgs (atom (get-cached-images))]
    (while true
      (try (loop [imgs @backup-imgs]
             (let [{:keys [new old all]} (fetch-tick imgs)]

               (when-not (empty? new)
                 (update-states! all)
                 (reset! backup-imgs all))
               (Thread/sleep scrape-period)
               (recur all)))
        (catch Throwable err
          (let [cause (.getCause err)
