Problem with recursive loop and crash building a branch diagram with a svn repository

[Stephen Schwarm]

From tkcvs-8.2.3
I have problems with a complex svn repository going into loops and crashing when building a branch diagram until I added this fix. It seem to work well now. I have not tested it with cvs.

branch_diagram.tcl
diff
896,899c896,902
<               lappend brevs $r2
<               foreach {lx y2 lbw rh lly} [DrawBranch $x2 $y2 $revision $r2] {
<                 lappend bxys $lx $lbw $rh $lly
<                 break
---
>              if {$revision != $r2} {
>                 lappend brevs $r2
>                 foreach {lx y2 lbw rh lly} [DrawBranch $x2 $y2 $revision $r2] {
>                   lappend bxys $lx $lbw $rh $lly
>                   break
>                 }
>                 set x2 [expr {$lx + $lbw + $curr(spcx)}]
901d903
<               set x2 [expr {$lx + $lbw + $curr(spcx)}]