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

                                     after-combination)))]
    (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)))))

                                 long-genome)))]
      (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))))))
