diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4ea515d0cb..b9fb6e708e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-08 14:53 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx/dbfcdx1.c
+     + added support for ordFor()
+
 2001-11-07 23:00 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
    * utils/hbmake/hbmake.prg
      utils/hbmake/hbmake.prg
diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index 4fe11ba331..2421ba4959 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -891,6 +891,24 @@ ERRCODE hb_cdxOrderInfo( CDXAREAP pArea, USHORT uiIndex, LPDBORDERINFO pOrderInf
       case DBOI_BAGEXT:
          pOrderInfo->itmResult = hb_itemPutC( pOrderInfo->itmResult, CDX_INDEXEXT );
          break;
+
+      case DBOI_CONDITION:
+         if ( ! pOrderInfo->itmOrder )
+            pTag = hb_cdxGetActiveTag( pArea->lpIndexes );
+
+         else
+         {
+               uiTag = hb_cdxFindTag( pArea, pOrderInfo );
+               if ( uiTag )
+               {
+                  pTag = hb_cdxGetTagByNumber(pArea,  uiTag );
+               }
+         }
+         if ( pTag )
+            pOrderInfo->itmResult = hb_itemPutC( pOrderInfo->itmResult, pTag->ForExpr );
+
+         break;
+
       case DBOI_EXPRESSION:
 
          if ( ! pOrderInfo->itmOrder )