                                 (conj result-genome (nth (if use-s1 s1 s2) i))
                                 (dec iteration-budget)))))]
     (make-individual :genome 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))))))

                                (drop (second p1-points) 
                                      genome1)))]
    (make-individual :genome new-genome
                     :history (:history parent1)
                     :ancestors (if maintain-ancestors
                                  (cons (:genome parent1) (:ancestors parent1))
                                  (:ancestors parent1)))))
