diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 63f893beff..cd82f2358a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-21 16:40 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx/dbfcdx1.c
+     ! fixed eof() bug
+
 2001-11-21 12:31 GMT Dave Pearson <davep@davep.org>
    * source/rdd/dbcmd.c
      - Removed (using "#if 0...") hb_waNull().
diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index 54d3e3935b..e9f869d8fd 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -4617,10 +4617,11 @@ ERRCODE hb_cdxGoTo( CDXAREAP pArea, ULONG ulRecNo )
 
    if( SUPER_GOTO( ( AREAP ) pArea, ulRecNo ) == FAILURE )
       return FAILURE;
-   /*
+
    if ( pArea->fEof )
-      return FAILURE;
-   */
+      /* return FAILURE; */
+      return SUCCESS;
+
    pTag = hb_cdxGetActiveTag( pArea->lpIndexes );
    if ( ! pTag )
       return SUCCESS;