                                         [])
                               :history (:history parent1)
                               :age (if use-child
-                                     ((age-combining-function argmap) 
-                                      (inc (:age parent1)) 
-                                      (inc (:age parent2)))
+                                     ((age-combining-function argmap) parent1 parent2 new-genome)
                                      0)
                               :ancestors (if maintain-ancestors
                                            (cons (:genome parent1) (:ancestors parent1))

                         [])))]
    (assoc (make-individual :genome new-genome
                            :history (:history parent1)
                            :age ((age-combining-function argmap) 
                                  (inc (:age parent1)) 
                                  (inc (:age parent2)))
                            :ancestors (if maintain-ancestors
                                         (cons (:genome parent1) (:ancestors parent1))
                                         (:ancestors parent1)))

                                (dec iteration-budget)))))]
    (make-individual :genome new-genome
                     :history (:history parent1)
                     :age ((age-combining-function argmap) parent1 parent2 new-genome)
                     :ancestors (if maintain-ancestors
                                  (cons (:genome parent1) (:ancestors parent1))
                                  (:ancestors parent1)))))
