diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5e5c018f26..ed87634cbb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-03-07 12:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/rdd/dbf1.c
+    * removed unnecessary function call
+
 2010-03-07 12:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbtip/encmthd.c
     * Formatting.
diff --git a/harbour/src/rdd/dbf1.c b/harbour/src/rdd/dbf1.c
index 4b1d06cd21..197b72012f 100644
--- a/harbour/src/rdd/dbf1.c
+++ b/harbour/src/rdd/dbf1.c
@@ -536,7 +536,6 @@ static HB_BOOL hb_dbfPasswordSet( DBFAREAP pArea, PHB_ITEM pPasswd, HB_BOOL fRaw
    fSet = !pArea->fHasMemo && HB_IS_STRING( pPasswd ) && (!fRaw || ulLen == 8);
    if( fSet )
    {
-      ulLen = hb_itemGetCLen( pPasswd );
       if( ulLen > 0 )
       {
          if( ulLen < 8 )