                        :as db}]
   (api/get-img-tag site (first page-list))
   (let [{:keys [page-list] :as db}
-        (assoc db
-               :page-list (next page-list)
-               :waiting true)
+        (assoc db :waiting true)
         new-location (assoc location
                             :chapter (inc
                                       (read-string chapter))

  (rf/register-handler
   :scroll
   (fn [db _]
     (if (and (not (:waiting db))
              (= (:page db)
                 :read))
       (let [scroll-y (.-scrollY js/window)
             window-height (.-innerHeight js/window)
             screen-bottom (+ scroll-y window-height)

   (fn [db [_ img-data]]
     (-> db
         (assoc :waiting false)
         (update-in [:page-list] next)
         (update-in [:comic-imgs] conj img-data)))))
