                                              {:genome child-genome} 
                                              argmap)))
                          nil)
-          variant (diversifying? child-genome argmap)
+          variant (diversifying? child-genome (-> argmap
+                                                  (assoc :parent1-genome parent1-genome)
+                                                  (assoc :parent2-genome parent2-genome)))
           use-child (or variant
                         (and autoconstructive-improve-or-diversify
                              (some (fn [[child-error parent1-error parent2-error]]

          {:genome (produce-child-genome-by-autoconstruction g g argmap)} 
          argmap)))

(defn three-gens-diff-diffs-diversifying?
  "Returns true iff genome g passes the diversification test."
  [g argmap]

     :use-mate-differently use-mate-differently-diversifying?
     :si-and-mate-use si-and-mate-use-diversifying?
     :no-clones no-clones-diversifying?
     :not-a-clone not-a-clone-diversifying?
     :none (fn [genome argmap] true))
    g
    argmap))
