--- libaitio/src/Attic/vars.c	2012/03/27 21:37:56	1.4.4.2
+++ libaitio/src/Attic/vars.c	2012/03/27 22:31:37	1.4.4.3
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: vars.c,v 1.4.4.2 2012/03/27 21:37:56 misho Exp $
+* $Id: vars.c,v 1.4.4.3 2012/03/27 22:31:37 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -473,13 +473,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++)
-		if (io_arrayGet(vars, i))
-			AIT_FREE_VAL(io_array(vars, i, ait_val_t*));
+		if ((v = io_array(vars, i, ait_val_t*)))
+			AIT_FREE_VAL(v);
 
 	return io_arraySize(vars);
 }