                              0 
                              (if 
                                (some (fn [sib]
-                                       (or (zero? (-> (:history sib)
+                                       (or (zero? (-> (:history sib) ;; sib solved
                                                       (first)
                                                       (nth case-index)))
-                                           (not= (-> (:history sib)
+                                           (not= (-> (:history sib) ;; sib error different than mom's
                                                      (first)
                                                      (nth case-index))
                                                  (-> (:history sib)

                                     siblings)
                               0
                               1)))))))
              ;
              (= cat :washout-mother)
              (if (not (:print-history argmap))

                       (max (sequence-similarity (:genome ind) (:parent1-genome ind))
                            (sequence-similarity (:genome ind) (:parent2-genome ind)))
                       1.0))
              ;
              (= cat :difference-from-mate)
              (- 1.0 (if (:parent2-genome ind)
                       (sequence-similarity (:genome ind) (:parent2-genome ind))
                       0.0))
              ;
              (= cat :reproductive-convergence)
              (if (and (:parent1-genome ind) (:parent2-genome ind))
