diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2120359b63..9fca2355de 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990730-12:46 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * tests/working/testrdd.prg
+     Fixed a bug
+
 19990730-12:24 GMT+1 Bruno Cantero <bruno@issnet.net>
    + source/rdd/sdf0.prg, source/rdd/sdf1.c, source/rdd/delim0.prg and source/rdd/delim1.c
      Support for two RDD's (SDF and DELIM)
diff --git a/harbour/tests/working/testrdd.prg b/harbour/tests/working/testrdd.prg
index b7c922ea83..f7470e80a1 100644
--- a/harbour/tests/working/testrdd.prg
+++ b/harbour/tests/working/testrdd.prg
@@ -13,7 +13,6 @@ function main()
    rddSetDefault("DBF")
    dbUseArea(,, "TestRdd.dbf" )
    Eof()
-   dbSelectArea( 1 )
    dbUseArea(, "DELIM", "TestRdd.dbf" )
    Found()
    dbGoBottom()