diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1e363ddb84..6641fd60d7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-05-25 21:36 UTC-0800 Ron Pinkas <ron@ronpinkas.com>
+  * contrib/rdd_ads/ads1.c
+    + Added #ifdef section to support xHarbour PCODE version check.
+
 2002-05-25 21:00 UTC-0300 Walter Negro <anegro@overnet.com.ar>
   * source/rtl/tget.prg
     ! Fix picture function in lower case. (eg: @s )
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index f7375fe404..c37049a6ca 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -77,6 +77,11 @@ extern int adsLockType;
 extern int adsRights;
 extern int adsCharType;
 
+#ifdef HB_PCODE_VER
+   #undef HB_PRG_PCODE_VER
+   #define HB_PRG_PCODE_VER HB_PCODE_VER
+#endif
+
 HB_INIT_SYMBOLS_BEGIN( ads1__InitSymbols )
 { "_ADS",             HB_FS_PUBLIC, HB_FUNCNAME( _ADS ), NULL },
 { "ADS_GETFUNCTABLE", HB_FS_PUBLIC, HB_FUNCNAME( ADS_GETFUNCTABLE ), NULL }