diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1e5181d05d..19532406dd 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+     ! Fixed leak introduced in previous commit.
+
+2006-09-20 23:17 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)
+   * harbour/include/hbexprb.c
    * harbour/include/hbexprop.h
    * harbour/source/common/expropt2.c
      % Compile-time optimization added for expressions below:
diff --git a/harbour/source/vm/codebloc.c b/harbour/source/vm/codebloc.c
index 6f6783a7bd..f4cd3af5b0 100644
--- a/harbour/source/vm/codebloc.c
+++ b/harbour/source/vm/codebloc.c
@@ -170,7 +170,8 @@ HB_CODEBLOCK_PTR hb_codeblockNew( const BYTE * pBuffer,
           * TODO: If Harbour will support threads in the future then we need
           * to implement some kind of semaphores here.
           */
-         pLocal = hb_stackItemFromBase( HB_PCODE_MKUSHORT( pLocalPosTable ) );
+         int iLocal = HB_PCODE_MKUSHORT( pLocalPosTable );
+         pLocal = hb_stackLocalVariable( &iLocal );
          pLocalPosTable += 2;
 
          pLocal = hb_memvarDetachLocal( pLocal );