                             (throw 
                               (Exception. 
                                 ":print-history must be true for :gens-since-total-error-change"))
-                            (let [hist (:history ind)]
+                            (let [hist (mapv (partial reduce +) (:history ind))]
                               (if (or (empty? hist)
                                       (apply = hist))
                                 1000000

                           :total-error te
                           :weighted-error we
                           :normalized-error ne
                           :history (if print-history (cons te (:history i)) (:history i)))
            me (calculate-meta-errors new-ind argmap)]
        (assoc new-ind :meta-errors me)))))


                            (throw 
                              (Exception. 
                                ":print-history must be true for :total-error-new-best-ratio"))
                            (let [hist (mapv (partial reduce +) (:history ind))]
                              (if (empty? (rest hist))
                                1000000
                                (loop [remaining hist
