diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 167b7c928e..4942ae9529 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-01-26 17:00 UTC+0100 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
+  * source/rtl/gtxwc/gtxwc.h
+    added missed K_SH_keys
+
 2008-01-26 11:00 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * source/pp/Makefile
      ! Missed modification made after lib name change.
diff --git a/harbour/source/rtl/gtxwc/gtxwc.h b/harbour/source/rtl/gtxwc/gtxwc.h
index 8a8358d094..89c5c1734c 100644
--- a/harbour/source/rtl/gtxwc/gtxwc.h
+++ b/harbour/source/rtl/gtxwc/gtxwc.h
@@ -161,6 +161,21 @@ typedef USHORT HB_GT_CELLTYPE;
 #define EXKEY_PRTSCR          (28 | XWC_EXTKEYMASK)
 #define EXKEY_PAUSE           (29 | XWC_EXTKEYMASK)
 
+/* xHarbour compatible definitions */
+#if !defined( K_SH_LEFT )
+#define K_SH_LEFT           K_LEFT   /* Shift-Left  == Left  */
+#define K_SH_UP             K_UP     /* Shift-Up    == Up    */
+#define K_SH_RIGHT          K_RIGHT  /* Shift-Right == Right */
+#define K_SH_DOWN           K_DOWN   /* Shift-Down  == Down  */
+#define K_SH_INS            K_INS    /* Shift-Ins   == Ins   */
+#define K_SH_DEL            K_DEL    /* Shift-Del   == Del   */
+#define K_SH_HOME           K_HOME   /* Shift-Home  == Home  */
+#define K_SH_END            K_END    /* Shift-End   == End   */
+#define K_SH_PGUP           K_PGUP   /* Shift-PgUp  == PgUp  */
+#define K_SH_PGDN           K_PGDN   /* Shift-PgDn  == PgDn  */
+#define K_SH_RETURN         K_RETURN /* Shift-Enter == Enter */
+#define K_SH_ENTER          K_ENTER  /* Shift-Enter == Enter */
+#endif
 
 #define XWC_STD_MASK    ( ExposureMask | StructureNotifyMask | FocusChangeMask | \
                           ButtonPressMask | ButtonReleaseMask | PointerMotionMask | \