From bb2f99132a71ccdcc12e4b388fc5fae80f0e3f7f Mon Sep 17 00:00:00 2001
From: Bruno Cantero <bruno@issnet.net>
Date: Sun, 1 Aug 1999 20:17:27 +0000
Subject: [PATCH] ...

---
 harbour/source/rdd/dbcmd.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 40ba7090ba..7ce75c8b54 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -330,11 +330,10 @@ ERRCODE hb_rddInherit( PRDDFUNCS pTable, PRDDFUNCS pSubTable, PRDDFUNCS pSuperTa
       szSuperName = ( char * ) hb_xgrab( uiCount + 1 );
       strcpy( szSuperName, ( char * ) szDrvName );
       szSuperName = hb_strUpper( szSuperName, uiCount );
+      pRddNode = hb_FindRddNode( szSuperName );
+      hb_xfree( szSuperName );
       if( !( pRddNode = hb_FindRddNode( szSuperName ) ) )
-      {
-         hb_xfree( szSuperName );
          return FAILURE;
-      }
       memcpy( pTable, &pRddNode->pTable, sizeof( RDDFUNCS ) );
    }