diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index 99850814ae..27ee8d295a 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -424,12 +424,12 @@ STATIC FUNCTION ADO_FLUSH( nWA )
 
 RETURN SUCCESS
 
-STATIC FUNCTION ADO_ORDINFO( nWA, iIndex, aOrderInfo )
+STATIC FUNCTION ADO_ORDINFO( nWA, nIndex, aOrderInfo )
 
 	local oADO := USRRDD_AREADATA( nWA )[ 1 ]
 	
 	do case
-	   case iIndex == UR_ORI_TAG
+	   case nIndex == UR_ORI_TAG
 	        if aOrderInfo[ UR_ORI_TAG ] < s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Indexes:Count
              aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Indexes( aOrderInfo[ UR_ORI_TAG ] - 1 ):Name
           else