diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 750a3c301c..4cc9d3c1d0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19991105-14:07 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/rtl/codebloc.prg
+	* memory occupied by detached local variables is properly released now
+	
 19991104-23:45 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/filesys.c
     ! hb_fsSeek() now returns 0 instead of -1 on error, just like Clipper.
diff --git a/harbour/source/rtl/codebloc.c b/harbour/source/rtl/codebloc.c
index 95588e8e86..db95fa15cb 100644
--- a/harbour/source/rtl/codebloc.c
+++ b/harbour/source/rtl/codebloc.c
@@ -185,7 +185,7 @@ void  hb_codeblockDelete( HB_ITEM_PTR pItem )
       if( pCBlock->pLocals )
       {
          USHORT ui = 1;
-         while( ui < pCBlock->uiLocals )
+         while( ui <= pCBlock->uiLocals )
          {
             hb_memvarValueDecRef( pCBlock->pLocals[ ui ].item.asMemvar.value );
             ++ui;