                            :total-error te
                            :weighted-error we
                            :normalized-error ne
-                           :history (if print-history (cons te (:history i)) (:history i)))
+                           :history (if print-history (cons e (: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-improvement-ratio"))
                            (let [diffs (mapv (fn [[a b]] (- a b)) (partition 2 1 (:history ind)))]
                              (if (empty? diffs)
                                1000000
                                (- 1 (/ (count (filter neg? diffs))

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