diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bf2b8144c7..146ce92ef7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-23 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+  ! source/rdd/dbfntx1.c
+     ! fixed support of numeric indexes for negative numbers
+
 2001-10-22 07:20 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
    *makefile.bc
      * removed -b option from hbmake
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 0a046ac889..f5a75123e2 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -171,6 +171,14 @@ static char * numToStr( PHB_ITEM pItem, char* szBuffer, USHORT length, USHORT de
                 dec, hb_itemGetND( pItem ) );
    }
    szBuffer[ length ] = 0;
+   if( hb_itemGetND( pItem ) < 0 )
+   {
+      char *ptr = szBuffer;
+      *ptr++ = ',';
+      for( ;*ptr;ptr++ )
+         if( *ptr >= '0' && *ptr <= '9' )
+            *ptr = (char) ( 92 - (int)*ptr );
+   }
    return szBuffer;
 }