From fee204d38cb42f9c0a9d022b6368f64bc8aab3eb Mon Sep 17 00:00:00 2001
From: Horacio Dario Roldan Kasimatis <harbour_ar@yahoo.com.ar>
Date: Tue, 13 Nov 2001 18:55:28 +0000
Subject: [PATCH] 2001-11-13 15:40 GMT-3 Horacio Roldan
 <harbour_ar@yahoo.com.ar>

---
 harbour/ChangeLog                   | 4 ++++
 harbour/source/rdd/dbfcdx/dbfcdx1.c | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bd4bc6a286..1eb82a28d4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-13 15:40 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx/dbfcdx1.c
+     ! fixed eof() bug in hb_cdxGoTo
+
 2001-11-12 21:25 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
    * utils/hbmake/hbmake.prg
       * Fixed an small bug that remain in previus update
diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index 933f824ce8..3777ce0298 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -4520,6 +4520,9 @@ ERRCODE hb_cdxGoTo( CDXAREAP pArea, ULONG ulRecNo )
    if( SUPER_GOTO( ( AREAP ) pArea, ulRecNo ) == FAILURE )
       return FAILURE;
 
+   if ( pArea->fEof )
+      return FAILURE;
+
    pTag = hb_cdxGetActiveTag( pArea->lpIndexes );
    if ( ! pTag )
       return SUCCESS;