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

                            extract
                            stop?
                            (concat leaf-paths-obs leaf-paths)
                            new-corpus))))))))

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