diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5a95003b16..12076b2356 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+
+2001-12-13 15:09 UTC+0100 Maurilio Longo <maurilio.longo@libero.it>
+   * include/hbexprb.c
+     + changed lastest version with the one posted by Ron
+
 2001-12-13 03:50 UTC+0100 Antonio Linares <alinares@fivetech.com>
    * source/vm/maindllp.c
      * First VM/RTL functions added
diff --git a/harbour/include/hbexprb.c b/harbour/include/hbexprb.c
index eb1756f4a3..0516ebaa0c 100644
--- a/harbour/include/hbexprb.c
+++ b/harbour/include/hbexprb.c
@@ -441,9 +441,23 @@ static HB_EXPR_FUNC( hb_compExprUseCodeblock )
          hb_compWarnMeaningless( pSelf );
          break;
       case HB_EA_DELETE:
+      {
+         HB_EXPR_PTR pExp = pSelf->value.asList.pExprList;
+         HB_EXPR_PTR pNext;
+
          hb_compExprCBVarDel( ( HB_CBVAR_PTR ) pSelf->value.asList.pIndex );
-         HB_EXPR_PCODE1( hb_compExprDelete, pSelf->value.asList.pExprList );
+
+         /* Delete all expressions of the block.
+         */
+         while( pExp )
+         {
+            pNext = pExp->pNext;
+            HB_EXPR_PCODE1( hb_compExprDelete, pExp );
+            pExp = pNext;
+         }
+
          break;
+      }
    }
    return pSelf;
 }