diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6d7f917829..da070e09bc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,13 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+
+  * harbour/TODO
+    + added new item: Clean RDD code to be safe for return from RT errors
+      assigned to me
+
+2006-07-17 13:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/make_tgz.sh
     * added hbpptest to list of tools rebuilt with shared library
 
   * harbour/source/rdd/dbcmd.c
diff --git a/harbour/make_tgz.sh b/harbour/make_tgz.sh
index b4106940ab..4f870c58c2 100644
--- a/harbour/make_tgz.sh
+++ b/harbour/make_tgz.sh
@@ -245,7 +245,7 @@ then
     export L_USR="-L${HB_LIB_INSTALL} -l${name} ${ADD_LIBS}"
     export PRG_USR="\"-D_DEFAULT_INC_DIR='${_DEFAULT_INC_DIR}'\" ${PRG_USR}"
 
-    for utl in hbmake hbrun hbpp hbdoc hbtest
+    for utl in hbmake hbrun hbpp hbdoc hbtest hbpptest
     do
         (cd "utils/${utl}"
          rm -fR "./${HB_ARCHITECTURE}"
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 34f93bb8b6..f583463fb4 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -4614,7 +4614,7 @@ HB_FUNC( __DBTRANS )
 
 HB_FUNC( __DBAPP )
 {
-   BOOL bRetVal;
+   BOOL bRetVal = FALSE;
 
    if( ISCHAR( 1 ) )
    {
@@ -4640,7 +4640,6 @@ HB_FUNC( __DBAPP )
       else
       {
          hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "APPEND FROM" );
-         bRetVal = FALSE;
       }
    }
 
@@ -4649,7 +4648,7 @@ HB_FUNC( __DBAPP )
 
 HB_FUNC( __DBCOPY )
 {
-   BOOL bRetVal;
+   BOOL bRetVal = FALSE;
 
    if( ISCHAR( 1 ) )
    {
@@ -4675,7 +4674,6 @@ HB_FUNC( __DBCOPY )
       else
       {
          hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "COPY TO" );
-         bRetVal = FALSE;
       }
    }