diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 573ef4dba2..394727b2b9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-13 11:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   * source/rdd/dbcmd.c
+   * source/rdd/dbfcdx/dbfcdx1.c
+   * include/hbrddcdx.h
+     * fixed some warnings, added few HB_TRACE_
+
 2000-10-13 0:33 UTC+0800 Brian Hays <bhays@abacuslaw.com>
    * source/rdd/dbcmd.c
       fixed ORDKEY to accept 0 as a parameter (to get current index's key)
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 71aa3bb048..7900225c82 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -449,6 +449,7 @@ ERRCODE hb_rddInherit( PRDDFUNCS pTable, PRDDFUNCS pSubTable, PRDDFUNCS pSuperTa
  */
 void hb_rddReleaseCurrentArea( void )
 {
+   HB_TRACE(HB_TR_DEBUG, ("hb_rddReleaseCurrentArea()"));
    SELF_CLOSE( ( AREAP ) s_pCurrArea->pArea );
    SELF_RELEASE( ( AREAP ) s_pCurrArea->pArea );
 
@@ -478,6 +479,7 @@ LPAREANODE hb_rddNewAreaNode( LPRDDNODE pRddNode, USHORT uiRddID )
    LPAREANODE pCurrArea;
    USHORT uiSize;
 
+   HB_TRACE(HB_TR_DEBUG, ("hb_rddNewAreaNode(%p %d)", pRddNode,uiRddID));
    pCurrArea = ( LPAREANODE ) hb_xgrab( sizeof( AREANODE ) );
    if( pRddNode->uiAreaSize == 0 ) /* Calculate the size of WorkArea */
    {
@@ -521,6 +523,7 @@ USHORT hb_rddInsertAreaNode( char *szDriver )
    LPRDDNODE pRddNode;
    LPAREANODE pAreaNode;
 
+   HB_TRACE(HB_TR_DEBUG, ("hb_rddInsertAreaNode(%s)", szDriver));
    pRddNode = hb_rddFindNode( szDriver, &uiRddID );
    if( !pRddNode )
       return FALSE;
@@ -567,6 +570,7 @@ static USHORT hb_rddFieldIndex( AREAP pArea, char * szName )
    USHORT uiCount;
    LPFIELD pField;
 
+   HB_TRACE(HB_TR_DEBUG, ("hb_rddFieldIndex(%s)", szName));
    uiCount = 0;
    pField = pArea->lpFields;
    while( pField )