--- libaitio/src/Attic/vars.c	2012/05/14 12:49:21	1.6
+++ libaitio/src/Attic/vars.c	2012/05/14 16:16:03	1.7
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: vars.c,v 1.6 2012/05/14 12:49:21 misho Exp $
+* $Id: vars.c,v 1.7 2012/05/14 16:16:03 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -501,12 +501,14 @@ inline int
 io_clrVars(array_t * __restrict vars)
 {
 	register int i;
+	ait_val_t *v;
 
 	if (!vars)
 		return -1;
 
 	for (i = 0; i < io_arraySize(vars); i++)
-		io_freeVar((ait_val_t**) io_arrayGet2(vars, i));
+		if ((v = io_array(vars, i, ait_val_t*)))
+			AIT_FREE_VAL(v);
 
 	return io_arraySize(vars);
 }
@@ -524,6 +526,7 @@ io_freeVars(array_t ** __restrict vars)
 		return;
 
 	io_clrVars(*vars);
+	io_arrayFree(*vars);
 	io_arrayDestroy(vars);
 }