202c202
< 		$path.bar coords rect -1 0 [expr {$val*$w/$max}] $h
---
> 		$path.bar coords rect -1 0 [expr {int(double($val)*$w/$max)}] $h
