gitk: Fix a bug in make_disporder

diff --git a/gitk b/gitk
index 97d1be092aa41fb3dafe4a79dd4699c91bf23142..8699e1bb4f97dc3e1a6ec9d5a43e4fdf6323a3e8 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -853,7 +853,7 @@ proc make_disporder {start end} {
                lappend displayorder $id
                lappend parentlist $parents($curview,$id)
            }
-       } elseif {[lindex $displayorder $r] eq {}} {
+       } elseif {[lindex $displayorder [expr {$r + $al - 1}]] eq {}} {
            set i $r
            foreach id $varccommits($curview,$a) {
                lset displayorder $i $id