 
 (defn age-combining-function
   "Returns the actual age combining function specified by the :age-combining-function
-  in the argmap."
+  in the argmap. The function will take three arguments: the two parents, and the
+  genome of the child."
   [argmap]
   (case (:age-combining-function argmap)
-    :max max
-    :min min
-    :average average))
+    :max (fn [p1 p2 g] 
+           (max (inc (:age p1)) 
+                (inc (:age p2))))
+    :min (fn [p1 p2 g] 
+           (min (inc (:age p1)) 
+                (inc (:age p2))))
+    :average (fn [p1 p2 g] 
+               (average (inc (:age p1)) 
+                        (inc (:age p2))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; reproduction

        :is-random-replacement
        (if use-child false true)))))

















                                      genome1)))]
    (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)))))
