fixes to pareto.tcl