--- libaitio/src/Attic/vars.c	2012/09/17 13:44:22	1.13.2.3
+++ libaitio/src/Attic/vars.c	2012/09/17 13:56:08	1.13.2.4
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: vars.c,v 1.13.2.3 2012/09/17 13:44:22 misho Exp $
+* $Id: vars.c,v 1.13.2.4 2012/09/17 13:56:08 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -829,11 +829,11 @@ io_cmpVar(ait_val_t * __restrict a, ait_val_t * __rest
 {
 	intptr_t ret;
 
-	if (!(ret = (a - b)))
+	if (!(ret = (b - a)))
 		return ret;
-	if ((ret = AIT_TYPE(a) - AIT_TYPE(b)))
+	if ((ret = AIT_TYPE(b) - AIT_TYPE(a)))
 		return ret;
-	if ((ret = AIT_LEN(a) - AIT_LEN(b)))
+	if ((ret = AIT_LEN(b) - AIT_LEN(a)))
 		return ret;
 
 	switch (AIT_TYPE(a)) {