diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b12e5ccf59..63b1fdbdfc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-03-13 11:14 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rdd/dbsql.c
+    ! fixed typo in last commit which causes GPF when FOR condition was used
+      without WHILE - thanks to Lorenzo
+
 2008-03-12 17:43 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapi.h
   * harbour/source/common/hbver.c
diff --git a/harbour/source/rdd/dbsql.c b/harbour/source/rdd/dbsql.c
index e8a7c77b22..192a90daa9 100644
--- a/harbour/source/rdd/dbsql.c
+++ b/harbour/source/rdd/dbsql.c
@@ -259,7 +259,7 @@ static ULONG hb_db2Sql( AREAP pArea, PHB_ITEM pFields, HB_LONG llNext,
 
       if( pFor )
       {
-         if( SELF_EVALBLOCK( pArea, pWhile ) != SUCCESS )
+         if( SELF_EVALBLOCK( pArea, pFor ) != SUCCESS )
             break;
       }
       if( !pFor || hb_itemGetL( pArea->valResult ) )