diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 96a35599d8..33832dc46f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-05-22 10:30 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
+   * include/hbextern.ch
+   * source/rdd/dbcmdx.c
+     + Added dbPack() and dbZap() XBase++ 
+       compatibility functions.
+
 2008-05-22 10:10 UTC+0100 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
   * source/common/hbstr.c
     * casting for gcc 4.3.0
diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch
index 17ac999f85..58e850c908 100644
--- a/harbour/include/hbextern.ch
+++ b/harbour/include/hbextern.ch
@@ -757,6 +757,8 @@ EXTERNAL SHOWMSG
 #ifdef HB_COMPAT_XPP
 
 EXTERNAL BIN2U
+EXTERNAL DBPACK
+EXTERNAL DBZAP
 EXTERNAL DBCOPYEXTSTRUCT
 EXTERNAL DBCOPYSTRUCT
 EXTERNAL DBJOIN
diff --git a/harbour/source/rdd/dbcmdx.c b/harbour/source/rdd/dbcmdx.c
index 75f2359417..91ba7eb0a1 100644
--- a/harbour/source/rdd/dbcmdx.c
+++ b/harbour/source/rdd/dbcmdx.c
@@ -58,6 +58,20 @@
 
 #ifdef HB_COMPAT_XPP
 
+HB_FUNC_EXTERN( HB_DBPACK );
+
+HB_FUNC( DBPACK )
+{
+   HB_FUNC_EXEC( HB_DBPACK );
+}
+
+HB_FUNC_EXTERN( HB_DBZAP );
+
+HB_FUNC( DBZAP )
+{
+   HB_FUNC_EXEC( HB_DBZAP );
+}
+
 HB_FUNC( ORDWILDSEEK )
 {
    AREAP pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();