diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1288887f8c..fa38db587c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-11-06 11:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+   * source/vm/hvm.c
+     * RDD initialization added ( made by Przemyslaw Czerpak ) - I forgot to
+       upload it yesterday.
+
 2003-11-05 23:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
    * makefile.bc
    * makefile.nt
diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index ab5f3ca402..39bfe71d1e 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -283,6 +283,29 @@ ULONG _System OS2TermHandler(PEXCEPTIONREPORTRECORD       p1,
                              PVOID                        pv);
 #endif
 
+void hb_vmDoInitRdd( void )
+{
+   PHB_DYNS pDynSym;
+   int i;
+   char * rddName[] = { "DBFDBTINIT",
+                        "DBFFPTINIT",
+                        "DBFNTXINIT",
+                        "DBFCDXINIT",
+                        "RDDINIT",
+                        NULL };
+
+   for ( i = 0; rddName[i]; i++ )
+   {
+      pDynSym = hb_dynsymFind( rddName[i] );
+      if( pDynSym && pDynSym->pSymbol->pFunPtr )
+      {
+         hb_vmPushSymbol( pDynSym->pSymbol );
+         hb_vmPushNil();
+         hb_vmDo(0);
+      }
+   }
+}
+
 /* application entry point */
 
 void HB_EXPORT hb_vmInit( BOOL bStartMainProc )
@@ -343,6 +366,7 @@ void HB_EXPORT hb_vmInit( BOOL bStartMainProc )
     * because INIT function can use static variables
     */
    hb_vmDoInitStatics();
+   hb_vmDoInitRdd();
    hb_vmDoInitFunctions(); /* process defined INIT functions */
 
    /* This is undocumented CA-Clipper, if there's a function called _APPMAIN