diff --git a/gitk b/gitk
index 584a95e062..f007af47aa 100755
--- a/gitk
+++ b/gitk
@@ -3657,6 +3657,7 @@ proc selnextpage {dir} {
 	set lpp 1
     }
     allcanvs yview scroll [expr {$dir * $lpp}] units
+    drawvisible
     if {![info exists selectedline]} return
     set l [expr {$selectedline + $dir * $lpp}]
     if {$l < 0} {