From ce5c3d28dd1805f23505dab8aa93bf9b69598d2a Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sat, 8 May 1999 19:54:59 +0000
Subject: [PATCH] Unrelease memory block in aEval.

---
 harbour/ChangeLog           | 4 ++++
 harbour/source/rtl/arrays.c | 1 +
 2 files changed, 5 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 454aff8f65..4c87e5f19e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990508-20:57 Eddie Runia
+   * source/rtl/arrays.c:
+     Fixed unreleased memory block in aEval.
+
 19990508-15:24 CET Victor Szel <info@szelvesz.hu>
 
    * source/rtl/strings.c:
diff --git a/harbour/source/rtl/arrays.c b/harbour/source/rtl/arrays.c
index e1d3cd9005..4e6b79b398 100644
--- a/harbour/source/rtl/arrays.c
+++ b/harbour/source/rtl/arrays.c
@@ -479,6 +479,7 @@ HARBOUR AEVAL( void )
    {
 	  ArrayEval( pArray, bBlock, _parnl( 3 ), _parnl( 4 ) );
 	  ItemCopy( &stack.Return, pArray ); /* AEval() returns the array itself */
+      ItemRelease( pArray );             /* Release array holders once       */
    }
    else
 	  _ret();