diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 703c720593..a26c3decf7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -15,6 +15,10 @@
    under different terms, please contact respective author(s).
    The license applies to all entries newer than 2009-04-28.
 */
+2010-07-08 10:32 UTC+0200 Jacek Kubica (kubica@wssk.wroc.pl)
+  * contrib/hbmysql/tmysql.prg
+    ! Fixed: variable name problem from previous commit.
+             Reported by marco bra (marcobra.ubuntu@gmail.com)
 
 2010-07-08 10:23 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbmysql/tmysql.prg
diff --git a/harbour/contrib/hbmysql/tmysql.prg b/harbour/contrib/hbmysql/tmysql.prg
index a310df49ea..7f9fc31fdd 100644
--- a/harbour/contrib/hbmysql/tmysql.prg
+++ b/harbour/contrib/hbmysql/tmysql.prg
@@ -1342,7 +1342,7 @@ CREATE CLASS TMySQLServer
    METHOD NetErr() INLINE ::lError                         // Returns .T. if something went wrong
    METHOD Error()                                          // Returns textual description of last error
    METHOD CreateDatabase( cDataBase )                      // Create an New Mysql Database
-   METHOD DeleteDatabase( cDataBase )                        // Delete database
+   METHOD DeleteDatabase( cDataBase )                      // Delete database
 
    METHOD sql_Commit()                                     // Commits transaction [mitja]
    METHOD sql_Rollback()                                   // Rollbacks transaction [mitja]
@@ -1565,7 +1565,7 @@ METHOD DeleteTable( cTable ) CLASS TMySQLServer
 
 METHOD DeleteDatabase( cDataBase ) CLASS TMySQLServer
 
-   LOCAL cDropQuery := "DROP DATABASE " + Lower( cDBName )
+   LOCAL cDropQuery := "DROP DATABASE " + Lower( cDataBase )
 
    IF mysql_query( ::nSocket, cDropQuery ) == 0
       RETURN .T.