diff --git a/harbour/source/debug/dbgtobj.prg b/harbour/source/debug/dbgtobj.prg
index 0083a7e705..7a7eeec542 100644
--- a/harbour/source/debug/dbgtobj.prg
+++ b/harbour/source/debug/dbgtobj.prg
@@ -174,10 +174,14 @@ method SetsKeyPressed( nKey, oBrwSets, nSets, oWnd ,cName,LenArr,aArray) class t
 
       case nKey == K_PGUP
            oBrwSets:PageUp()
+           oBrwSets:Cargo = ::ArrayIndex
+           oBrwSets:RefreshCurrent()
            oBrwSets:ForceStable()
 
       case nKey == K_PGDN
            oBrwSets:PageDown()
+           oBrwSets:Cargo = ::ArrayIndex
+           oBrwSets:RefreshCurrent()
            oBrwSets:ForceStable()
 
       Case nKey ==13