diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 49d66bf1db..88c4ec5449 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-23 01:32 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * harbour/contrib/rddads/ads1.c
+    * adjusted empty date fallback condition in putValue method. 
+      Thanks Przemek for suggestion.
+
 2010-04-23 00:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbwin/win_evnt.c
     ! Fixed C++ casting errors.
diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c
index 5da7c40394..ea0a51f193 100644
--- a/harbour/contrib/rddads/ads1.c
+++ b/harbour/contrib/rddads/ads1.c
@@ -2589,7 +2589,7 @@ static HB_ERRCODE adsPutValue( ADSAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem
 
             /* ADS does not support dates before 0001-01-01. It generates corructed 
                DBF records and fires ADS error 5095 on FIELDGET() later. [Mindaugas] */
-            if( pArea->iFileType != ADS_ADT && lDate < 1721426 )  /* 1721426 ~= 0001-01-01 */
+            if( pField->uiLen != 4 && lDate < 1721426 )  /* 1721426 ~= 0001-01-01 */
                lDate = 0;
 
             bTypeError = HB_FALSE;