diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index ee822b09..42bac357 100644
--- a/lang/m2/comp/Version.c
+++ b/lang/m2/comp/Version.c
@@ -1 +1 @@
-static char Version[] = "ACK Modula-2 compiler Version 0.26";
+static char Version[] = "ACK Modula-2 compiler Version 0.27";
diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index d7e89674..4f032aa5 100644
--- a/lang/m2/comp/type.c
+++ b/lang/m2/comp/type.c
@@ -290,7 +290,7 @@ chk_basesubrange(tp, base)
 		int fund = base->tp_next->tp_fund;
 
 		if (! chk_bounds(base->sub_lb, tp->sub_lb, fund) || 
-		    ! chk_bounds(base->sub_ub, tp->sub_ub, fund)) {
+		    ! chk_bounds(tp->sub_ub, base->sub_ub, fund)) {
 			error("base type has insufficient range");
 		}
 		base = base->tp_next;