                                         (reduce + weights))))))
                           ;
                           (= cat :discounted-case-improvements)
-                          (if (not (:print-history argmap))
+                          #_(if (not (:print-history argmap))
                             (throw 
                               (Exception. 
                                 ":print-history must be true for :discounted-case-improvements"))

                                             weights (iterate (partial * (- 1 improvement-discount)) 1)
                                             sum (reduce + (mapv * improvements weights))]
                                         (if (<= sum 0) 
                                           1.0E100
                                           (/ 1.0 sum))))))))
                          ;

            me (calculate-meta-errors new-ind argmap)]
        (assoc new-ind :meta-errors me)))))

