diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e967a42fe9..0222f03d96 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-02 02:29 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/maindllp.c
+    ! fixed unapdated hb_parvds() redirection
+
 2009-07-02 01:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapi.h
   * harbour/source/vm/extend.c
diff --git a/harbour/source/vm/maindllp.c b/harbour/source/vm/maindllp.c
index 90427356e6..0235edd78b 100644
--- a/harbour/source/vm/maindllp.c
+++ b/harbour/source/vm/maindllp.c
@@ -383,7 +383,7 @@ ULONG hb_parvcsiz( int iParam, ... )/* retrieve a by-reference string parameter
    return 0;
 }
 
-char * hb_parvds( int iParam, ... ) /* retrieve a date as a string yyyymmdd */
+const char * hb_parvds( int iParam, ... ) /* retrieve a date as a string yyyymmdd */
 {
    FARPROC pParDs = GetProcAddress( GetModuleHandle( NULL ), HBTEXT( "_hb_parvds" ) );
    FARPROC pExtIsArray = GetProcAddress( GetModuleHandle( NULL ), HBTEXT( "_hb_extIsArray" ) );