diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index df67f546a6..a40610bbb4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-05-01 01:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/tpopuphb.prg
+    ! non-c53 mode fix
+
 2011-05-01 00:57 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * src/rtl/tpopuphb.prg
     ! typo?
diff --git a/harbour/src/rtl/tpopuphb.prg b/harbour/src/rtl/tpopuphb.prg
index f3d6b832d8..5f37eed592 100644
--- a/harbour/src/rtl/tpopuphb.prg
+++ b/harbour/src/rtl/tpopuphb.prg
@@ -53,6 +53,8 @@
 
 #include "hbclass.ch"
 
+#ifdef HB_COMPAT_C53
+
 CREATE CLASS hb_POPUPMENU INHERIT hbPOPUPMENU
 
    EXPORTED:
@@ -197,3 +199,5 @@ METHOD isQuick( nKey, nID ) CLASS hb_POPUPMENU
    ENDIF
 
    RETURN .F.
+
+#endif