                       {entry-point {:body (:body body)
                                     :url entry-point
                                     :src-url nil
-                                    :src-text nil}})))
+                                    :src-text nil}}
+                      (set [entry-point]))))
   
-  ([url-queue visited lookahead leaf? extract stop? leaf-paths leaf-limit corpus]
+  ([url-queue visited lookahead leaf? extract stop? leaf-paths leaf-limit corpus observed]
      (do
        (Thread/sleep 1000)
        (utils/sayln :queue-size (count url-queue))

                   (stop? {:visited    (count visited)
                           :body       body
                           :corpus     corpus
                           :leaf-clusters leaf-clusters}))
               (do
                 (utils/sayln :crawl-done)
                 {:state  {:url-queue  url-queue

                            stop?
                            (concat leaf-paths-obs leaf-paths)
                            new-corpus
                            new-leaf-clusters
                            new-observed))))))))
