From 57fc886372a56606d26b2b096b96d624da06330c Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Tue, 19 Oct 1999 08:36:00 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/source/rtl/gt/gtwin.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/gt/gtwin.c b/harbour/source/rtl/gt/gtwin.c
index fcac7dbce6..2bd3b3a399 100644
--- a/harbour/source/rtl/gt/gtwin.c
+++ b/harbour/source/rtl/gt/gtwin.c
@@ -112,8 +112,11 @@ void hb_gt_Init( void )
 
    if( ( hb_gtHInput = GetStdHandle( STD_INPUT_HANDLE ) ) == INVALID_HANDLE_VALUE )
    {
-      AllocConsole(); /* It is a Windows app without a console, so we create one */
-      hb_gtHInput = GetStdHandle( STD_INPUT_HANDLE );
+      if( hb_dynsymFindName( "__DBGENTRY" ) ) /* the debugger is linked */
+      {
+         AllocConsole(); /* It is a Windows app without a console, so we create one */
+         hb_gtHInput = GetStdHandle( STD_INPUT_HANDLE );
+      }
    }
 
    SetConsoleMode( hb_gtHInput, 0 );