--- a/.fvwm/config	Tue Aug 30 18:13:53 2016 +0300
+++ b/.fvwm/config	Tue Aug 30 18:22:43 2016 +0300
@@ -384,6 +384,7 @@
 AddToFunc myGotoPage
 + I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"
 + I GotoPage $0 $1
++ I Next (CurrentPage) Focus
 
 Key F9 A C myGotoPage -1p -0p
 Key F12 A C myGotoPage +1p +0p
@@ -398,6 +399,7 @@
 + I TestRc (Match) GotoPage +0p 2
 + I TestRc (NoMatch) GotoPage +0p -1p
 + I UnSetEnv fvwm_page_ny
++ I Next (CurrentPage) Focus
 
 Key F11 A C myGotoPageUp
 
@@ -411,6 +413,7 @@
 + I TestRc (Match) GotoPage +0p 0
 + I TestRc (NoMatch) GotoPage +0p +1p
 + I UnSetEnv fvwm_page_ny
++ I Next (CurrentPage) Focus
 
 Key F10 A C myGotoPageDown