From b9ebf21967aa30e549018e02cc868dc58344739e Mon Sep 17 00:00:00 2001
From: Ignacio Ortiz de Zuniga <ignacio@fivetech.com>
Date: Mon, 28 Jan 2002 16:00:44 +0000
Subject: [PATCH] 2002-01-28 17:00 UTC+0100 Ignacio Ortiz
 <ignacio@fivetech.com>

---
 harbour/source/vm/hvm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index aaf9d6ec50..1cc23268bc 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -3008,7 +3008,9 @@ void hb_vmDo( USHORT uiParams )
    if( bProfiler )
       ulClock = ( ULONG ) clock();
 
-   hb_inkeyPoll();           /* Poll the console keyboard */
+   #ifndef HB_GUI
+      hb_inkeyPoll();           /* Poll the console keyboard */
+   #endif
 
    pItem = hb_stackNewFrame( &sStackState, uiParams );
    pSym = pItem->item.asSymbol.value;