From 792db56e2296896df017a694f4589de54fd87bca Mon Sep 17 00:00:00 2001
From: Horacio Dario Roldan Kasimatis <harbour_ar@yahoo.com.ar>
Date: Sat, 16 Mar 2002 22:40:00 +0000
Subject: [PATCH] 2002-03-16 19:31 UTC-0300 Horacio Roldan
 <harbour_ar@yahoo.com.ar>    * source/rdd/dbfcdx/dbfcdx1.c      ! fixed bug
 with keys updating

---
 harbour/source/rdd/dbfcdx/dbfcdx1.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index c869e765f3..4b604fa5ea 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -4659,6 +4659,9 @@ ERRCODE hb_cdxSeek( CDXAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFindLas
    /*HB_SYMBOL_UNUSED( pKey );        */
    /*HB_SYMBOL_UNUSED( bFindLast );   */
 
+   if( SELF_GOCOLD( ( AREAP ) pArea ) == FAILURE )
+      return FAILURE;
+
    if( ! pTag )
    {
       pError = hb_errNew();