     (assoc (make-individual :genome (if (or variant (diversifying? new-genome argmap))
                                       new-genome
                                       [])
-                            :history [(:history parent1) (:history parent2)]
+                            :history (:history parent1)
                             :ancestors (if maintain-ancestors
                                          (cons (:genome parent1) (:ancestors parent1))
                                          (:ancestors parent1)))

                                 short-genome-lengthened
                                 long-genome)))]
      (make-individual :genome new-genome
                       :history [(:history parent1) (:history parent2)]
                       :ancestors (if maintain-ancestors
                                    (cons (:genome parent1) (:ancestors parent1))
                                    (:ancestors parent1))))))

                                (conj result-genome (nth (if use-s1 s1 s2) i))
                                (dec iteration-budget)))))]
    (make-individual :genome new-genome
                     :history (:history parent1)
                     :ancestors (if maintain-ancestors
                                  (cons (:genome parent1) (:ancestors parent1))
                                  (:ancestors parent1)))))
