diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 253bb783a8..dc7c81e56b 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -355,7 +355,7 @@ METHOD HandleEvent() CLASS TDebugger
 
    while ! ::lEnd
 
-      nKey = InKey( 0 )
+      nKey = InKey( 0, INKEY_ALL )
 
       do case
          case ::oPullDown:IsOpen()