--- libelwix/inc/elwix/aarray.h	2019/01/22 16:16:45	1.8.4.1
+++ libelwix/inc/elwix/aarray.h	2019/01/23 17:34:41	1.9.4.1
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: aarray.h,v 1.8.4.1 2019/01/22 16:16:45 misho Exp $
+* $Id: aarray.h,v 1.9.4.1 2019/01/23 17:34:41 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -55,8 +55,8 @@ typedef struct _tagArray {
 
 #define array_Size(_arr)		((_arr) ? (_arr)->arr_num : 0)
 #define array_Last(_arr)		(array_Size((_arr)) ? (_arr)->arr_last : -1)
-#define array_Zero(_arr)		(assert((_arr)), memset((_arr)->arr_data, 0, \
-						array_Size((_arr)) * sizeof(intptr_t)))
+#define array_Zero(_arr)		(assert((_arr)), (_arr)->arr_last = -1, \
+	       					memset((_arr)->arr_data, 0, array_Size((_arr)) * sizeof(intptr_t)))
 
 #define array_Ptr(_arr, _d)		((_arr) ? (_arr)->arr_data[_d] : NULL)
 #define array_Get2(_arr, _d)		(assert((_arr) && (_arr)->arr_num > _d), ((_arr)->arr_data + _d))