diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d736f5b45b..3d08dad3ad 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>
 */
+     ! fixed infinite loop
+
+2002-05-01 11:12 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx/dbfcdx1.c
    * source/rdd/dbfcdx/dbfcdx2.h
      ! fixed gpf reported by Lorenzo Fiorini
      + added helper function hb_cdxGoEof
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 1d566ed6dd..0d71a4f221 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -2563,6 +2563,7 @@ HB_FUNC( ORDLISTADD )
       */
       pOrderInfo.atomBagName = NULL;
       pOrderInfo.itmResult = hb_itemPutNI( NULL, 0 );
+      pOrderInfo.itmOrder = NULL;
       SELF_ORDINFO( ( AREAP ) s_pCurrArea->pArea, DBOI_ORDERCOUNT, &pOrderInfo );
       bFirst = ( pOrderInfo.itmResult->type & HB_IT_NUMERIC ) &&
                   hb_itemGetNI( pOrderInfo.itmResult ) == 0;