diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2ca7e34233..b37b140c82 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,12 @@
+19990801-20:40 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * source/rdd/rddsys.prg
+     source/rdd/dbf0.prg
+     source/rdd/sdf0.prg
+     source/rdd/delim0.prg
+     source/rdd/dbfntx/dbfntx0.prg
+     tests/working/testdbf.prg
+     Added a message for check if all the RDD's are linked
+
 19990801-20:20 GMT+1 Bruno Cantero <bruno@issnet.net>
    * source/rtl/files.c
      Changed for MSVC
diff --git a/harbour/source/rdd/dbf0.prg b/harbour/source/rdd/dbf0.prg
index 4184161b9a..fe7513f231 100644
--- a/harbour/source/rdd/dbf0.prg
+++ b/harbour/source/rdd/dbf0.prg
@@ -28,6 +28,8 @@ ANNOUNCE DBF
 
 init procedure DBFInit
 
+   QOut( "init procedure DBFInit" )
+
    REQUEST _DBF
 
    rddRegister( "DBF", RDT_FULL )
diff --git a/harbour/source/rdd/dbfntx/dbfntx0.prg b/harbour/source/rdd/dbfntx/dbfntx0.prg
index c7371790d5..8e77ab4df9 100644
--- a/harbour/source/rdd/dbfntx/dbfntx0.prg
+++ b/harbour/source/rdd/dbfntx/dbfntx0.prg
@@ -28,6 +28,8 @@ ANNOUNCE DBFNTX
 
 init procedure DBFNTXInit
 
+   QOut( "init procedure DBFNTXInit" )
+
    REQUEST _DBFNTX
 
    rddRegister( "DBFNTX", RDT_FULL )
diff --git a/harbour/source/rdd/delim0.prg b/harbour/source/rdd/delim0.prg
index 41d0151c45..0460921d20 100644
--- a/harbour/source/rdd/delim0.prg
+++ b/harbour/source/rdd/delim0.prg
@@ -28,6 +28,8 @@ ANNOUNCE DELIM
 
 init procedure DELIMInit
 
+   QOut( "init procedure DELIMInit")
+
    REQUEST _DELIM
 
    rddRegister( "DELIM", RDT_TRANSFER )
diff --git a/harbour/source/rdd/rddsys.prg b/harbour/source/rdd/rddsys.prg
index ade2608c0f..e3221f111a 100644
--- a/harbour/source/rdd/rddsys.prg
+++ b/harbour/source/rdd/rddsys.prg
@@ -28,6 +28,8 @@ ANNOUNCE RDDSYS
 
 init procedure RddInit
 
+   QOut( "init procedure RddInit" )
+
    REQUEST DBFNTX
 
    rddSetDefault( "DBFNTX" )
@@ -36,6 +38,8 @@ return
 
 exit procedure RddExit
 
+   QOut( "exit procedure RddExit" )
+
    rddShutdown()
 
 return
diff --git a/harbour/source/rdd/sdf0.prg b/harbour/source/rdd/sdf0.prg
index ebdaa7b1c5..a3fab4a902 100644
--- a/harbour/source/rdd/sdf0.prg
+++ b/harbour/source/rdd/sdf0.prg
@@ -28,6 +28,8 @@ ANNOUNCE SDF
 
 init procedure SDFInit
 
+   QOut( "init procedure SDFInit" )
+
    REQUEST _SDF
 
    rddRegister( "SDF", RDT_TRANSFER )
diff --git a/harbour/tests/working/testdbf.prg b/harbour/tests/working/testdbf.prg
index 2085835a39..724117f2f2 100644
--- a/harbour/tests/working/testdbf.prg
+++ b/harbour/tests/working/testdbf.prg
@@ -6,9 +6,12 @@ function main()
 		      { "DATE",      "D",  8, 0 }, ;
 		      { "LOGICAL",   "L",  1, 0 } }
 
-   QQOut( "Testing the DBF RDD driver" )
-   QOut()
+   local aRdd := rddList()
+
+   QOut( "Registered RDD's:", LTrim( Str( Len( aRdd ) ) ), "=>" )
+   aEval( aRdd, { | cDriver | QQOut( "", cDriver ) } )
    QOut()
+   QOut( "Creating a DBF file" )
    dbCreate( "testdbf.dbf", aStruct )
 
 return nil