diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1ed15cc7f4..91088a0b5f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-05-15 14:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/gtwvt/gtwvt.c
+    ! Internal change slipped into prev.
+
 2010-05-15 13:55 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * include/inkey.ch
     + Added new special GT events (over existing HB_K_RESIZE):
diff --git a/harbour/src/rtl/gtwvt/gtwvt.c b/harbour/src/rtl/gtwvt/gtwvt.c
index aeacae35f5..fa51349f10 100644
--- a/harbour/src/rtl/gtwvt/gtwvt.c
+++ b/harbour/src/rtl/gtwvt/gtwvt.c
@@ -1676,7 +1676,6 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara
 
       case WM_CLOSE:  /* Clicked 'X' on system menu */
          hb_gt_wvt_AddCharToInputQueue( pWVT, HB_K_CLOSE );
-/*
          if( hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSE ) == 0 )
          {
             PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE );
@@ -1684,7 +1683,6 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara
             hb_itemRelease( pItem );
             hb_vmRequestCancel();
          }
-*/
          return 0;
 
       case WM_QUIT: