diff --git a/harbour/source/rtl/alert.prg b/harbour/source/rtl/alert.prg
index c1e8bb5324..8b93ebf2f6 100644
--- a/harbour/source/rtl/alert.prg
+++ b/harbour/source/rtl/alert.prg
@@ -291,7 +291,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
       /* choice loop */
       DO WHILE .T.
 
-         nKey := Inkey( nDelay )
+         nKey := Inkey( nDelay, INKEY_ALL )
 
          DO CASE
 
@@ -345,7 +345,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
                iif( nEval == nChoice, cColorHigh, cColorNorm ) )
          NEXT
 
-         nKey := Inkey( nDelay )
+         nKey := Inkey( nDelay, INKEY_ALL )
 
          DO CASE
          CASE nKey == K_ENTER .OR. ;
@@ -451,4 +451,4 @@ PROCEDURE __NONOALERT()
 
    s_lNoAlert := .F.
 
-   RETURN
+   RETURN
\ No newline at end of file