diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3c23f0eb6f..a660ad7928 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-02-18 09:15 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/adsfunc.c
+    * Few type casts for MSVC
+
 2003-02-17 13:15 UTC-0500 David G. Holm <dholm@jsd-llc.com>
   * source/rtl/dbdelim.c
   	! Bug fix for EOL handling when using large import files,
diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c
index c6658701fc..5a16581df5 100644
--- a/harbour/contrib/rdd_ads/adsfunc.c
+++ b/harbour/contrib/rdd_ads/adsfunc.c
@@ -250,7 +250,7 @@ HB_FUNC( ADSSETDEFAULT )
 
    AdsGetDefault( pucDefault, &pusLen);
 
-   hb_retclen( pucDefault, pusLen );
+   hb_retclen( (char*)pucDefault, pusLen );
 
    if( ISCHAR(1) )
       AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
@@ -265,7 +265,7 @@ HB_FUNC( ADSSETSEARCHPATH )
 
    AdsGetSearchPath( pucPath, &pusLen);
 
-   hb_retclen( pucPath, pusLen );
+   hb_retclen( (char*)pucPath, pusLen );
 
    if( ISCHAR(1) )
       AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );