diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 797e811d8e..81e81f06c3 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1501,7 +1501,7 @@ static ERRCODE adsOrderListFocus( ADSAREAP pArea, LPDBORDERINFO pOrderInfo )
          if( ulLen > ADS_MAX_TAG_NAME )
             ulLen = ADS_MAX_TAG_NAME;
 
-         strncpy( pucTagName, pSrc, ulLen);
+         strncpy( ( char * ) pucTagName, pSrc, ulLen);
          pucTagName[ulLen] = '\0';
 
          ulRetVal = AdsGetIndexHandle( pArea->hTable,