#131 2.4z blt::chart: marchings ants raise tcl error

[Anonymous]

The following procedure

proc blt::MarchingAnts { graph offset } {
global zoomInfo

incr offset
if { [$graph marker exists zoomOutline] } {
$graph marker configure zoomOutline -dashoffset $offset
set interval $zoomInfo($graph,interval)
set id [after $interval [list blt::MarchingAnts $graph $offset]]
set zoomInfo($graph,afterId) $id
}
}

raises a tcl error when offset is greater than 32766.