From 1cb85d6e2deef88144498faa95a0e42817a97702 Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Tue, 22 Oct 2002 18:11:51 +0000
Subject: [PATCH] 2002-10-22 02:00 UTC-0500 Paul Tucker <ptucker@sympatico.ca>

---
 harbour/ChangeLog          | 6 +++++-
 harbour/source/rdd/dbcmd.c | 4 +++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9a5d142353..58ad6eedb5 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,4 +1,4 @@
-/*
+ 		/*
  * $Id$
  */
 
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-10-22 02:00 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
+  * source/rdd/dbcmd.c
+    ! corrected copy length in rddsetdefault
+
 2002-10-22 18:53 UTC+0100 Antonio Linares <alinares@fivetech.com>
   * source/rtl/filesys.c
     ! minor fix reported by José Fco. Pérez
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index f06cf57082..cd4f5f2649 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -926,6 +926,8 @@ void hb_rddShutDown( void )
    if( s_szDefDriver )
       hb_xfree( s_szDefDriver );
 
+   s_szDefDriver = NULL;
+
    while( s_pRddList )
    {
       pRddNode = s_pRddList;
@@ -2898,7 +2900,7 @@ HB_FUNC( __RDDSETDEFAULT )
    if( uiLen > 0 )
    {
       s_szDefDriver = ( char * ) hb_xrealloc( s_szDefDriver, uiLen + 1 );
-      hb_strncpyUpper( s_szDefDriver, hb_parc( 1 ), uiLen+1 );
+      hb_strncpyUpper( s_szDefDriver, hb_parc( 1 ), uiLen );
    }
 }