                             stop?
                             (concat leaf-paths-obs leaf-paths)
                             leaf-limit
-                            new-corpus))))))))
+                            new-corpus
+                            new-observed))))))))
 
 (defn crawl-random
   ([entry-point leaf? extract stop?]

                                                                          :body        (:body x)}))
                                                                 (catch Exception e nil))}))
                                             sampled-corpus)
                                  :new-visited links-list})))
      {}
      xpaths-and-urls)))


         (cond (or (empty? url-queue)
                   (stop? {:visited    (count visited)
                           :leaf-left  leaf-limit
                           :body       body
                           :observed   (count observed)}))
               (do
                 (utils/sayln :crawl-done)
                 {:state  {:url-queue  url-queue
