diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1022cebcb4..c2edf6db82 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-08 10:34 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/rddads/ads1.c
+     ! Fixed to behave Clipper-like when trying to write 
+       when on EOF position. This way a TODO is cleared in the 
+       source.
+
 2008-07-08 08:29 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * contrib/hbodbc/odbc.c
      ! Fixed compilation error with Pelles C 5.00.1.
diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c
index 2313d397e0..0a4d267a25 100644
--- a/harbour/contrib/rddads/ads1.c
+++ b/harbour/contrib/rddads/ads1.c
@@ -2210,10 +2210,7 @@ static ERRCODE adsPutValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
       SELF_FORCEREL( ( AREAP ) pArea );
 
    if( !pArea->fPositioned )
-   {
-      /* TODO: it should return SUCCESS for Clipper compatibility */
-      return FAILURE;
-   }
+      return SUCCESS;
 
    if( hb_ads_bTestRecLocks )
    {