                  (utils/sayln :paging pagination-extracted)
                  ;; at leaf, aggressively look for pagination
                  (if-not (and
-                          (<= (count corpus) 100)
+                          (<= (count corpus) 1000)
                           (seen? body old-corpus))
                    (recur {:content-queue (if-not (or (empty? pagination-extracted)
                                                       (nil? pagination-extracted))

                       identity
                       (map
                        (fn [{a-link :href text :text}]
                          (when-not (some #{a-link} (:visited acc))
                            {:url  a-link
                             :path (cons xpath src-path)
                             :src-url url

       (utils/sayln :cur-url url)
       (utils/sayln :encountered-documents seen-seq)
       (utils/sayln :corpus-size (count corpus))
       (utils/sayln :old-corpus-size (count old-corpus))
       (cond (or (stop? {:visited (count visited)
                         :num-leaves num-leaves
                         :queue-size (+ (count content-q)
