From 22fd21bd6584c347ca191b916637d7dc0d9b52f8 Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Mon, 8 Jul 2002 14:48:56 +0000
Subject: [PATCH] See changelog 2002-07-08 10:15 UTC-0300

---
 harbour/contrib/rdd_ads/ads1.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 72210240ee..842fccb7a1 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1068,7 +1068,7 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
                              ( int ) pField->uiLen - ( ( int ) pField->uiDec + 1 ),
                              ( int ) pField->uiDec );
          else
-            hb_itemPutNDLen( pItem, atol( (char *) pBuffer ), ( int ) pField->uiLen );
+            hb_itemPutNDLen( pItem, atol( (char *) pBuffer ), ( int ) pField->uiLen ,0);
          break;
 
       case HB_IT_DATE: