diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4bf180cc22..568826c10a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,10 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+  * include/hbrddntx.h
+2002-01-16 17:21 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx1.c
+     * fixed some simple warnings by bcc32 (with -w)
      * fixed 3 bugs with index not updating the tree
 
 2002-01-16 11:10 UTC-0500 David G. Holm <dholm@jsd-llc.com>
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 14b36bcd3e..292b77293d 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -2304,7 +2304,13 @@ BOOL adsExists( PHB_ITEM pItemTable, PHB_ITEM pItemIndex )
 #define  adsPutValueFile          NULL
 #define  adsReadDBHeader          NULL
 #define  adsWriteDBHeader         NULL
-#define  adsExit                  NULL
+
+static ERRCODE adsExit( void )
+{
+   AdsApplicationExit();
+   return SUCCESS;
+}
+
 #define  adsWhoCares              NULL
 
 static RDDFUNCS adsTable = { ( DBENTRYP_BP ) adsBof,