From 4c7f76510caa8a6320c7dc950a1309ec59f0051a Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 9 Feb 2000 10:11:22 +0000
Subject: [PATCH] 20000209-11:15 GMT+1 Antonio Linares <alinares@fivetech.com>

---
 harbour/source/debug/debugger.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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()