FIX: PARSE string using tag! doesn't consider the < and > when used with to block!

Fixes: metaeducation/rebol-issues#2138

(cherry picked from commit fc9fc9e)

Author: Oldes

src/core/u-parse.c

@@ -421,6 +421,20 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 					if (!HAS_CASE(parse)) ch2 = UP_CASE(ch2);
 					if (ch1 == ch2) goto found1;
 				}
+				else if (IS_TAG(item)) {
+					ch2 = '<';
+					if (ch1 == ch2) {
+						// adapted from function Parse_To :-)
+						REBSER *ser;
+						ser = Copy_Form_Value(item, 0);
+						i = Find_Str_Str(series, 0, index, series->tail, 1, ser, 0, ser->tail,  AM_FIND_MATCH | parse->flags);
+						if (i != NOT_FOUND) {
+							if (is_thru) i += ser->tail;
+							index = i;
+							goto found;
+						}
+					}
+				}
 				else if (ANY_STR(item)) {
 					ch2 = VAL_ANY_CHAR(item);
 					if (!HAS_CASE(parse)) ch2 = UP_CASE(ch2);