Tom Henderson - 2011-10-24

Can someone please check this proposed patch?

diff -r1.4 cbrgen.tcl
166c166
< set dst [expr ($i+1) % [expr $opt(nn) + 1] ]
---
> set dst [expr ($i+1) % $opt(nn) ]
183c183
< set dst [expr ($i+2) % [expr $opt(nn) + 1] ]
---
> set dst [expr ($i+2) % $opt(nn) ]