diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index 06a409cb2..017f2c829 100644
--- a/lang/m2/comp/type.c
+++ b/lang/m2/comp/type.c
@@ -350,7 +350,8 @@ subr_type(lb, ub, base)
 		   ???
 		*/
 		assert(lb->nd_INT >= 0);
-		if (BaseType(ub->nd_type) == int_type) tp = int_type;
+		if (BaseType(ub->nd_type) == int_type ||
+		    (base && BaseType(base) == int_type)) tp = int_type;
 		else tp = card_type;
 	}