FIX: PARSE modifiers do not honor PROTECT status of series

fixes: Oldes/Rebol-issues#2290

Author: Oldes

src/core/u-parse.c

@@ -1047,7 +1047,10 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 					Throw_Return_Series(parse->type, ser);
 				}
 				if (GET_FLAG(flags, PF_REMOVE)) {
-					if (count) Remove_Series(series, begin, count);
+					if (count) {
+						if (IS_PROTECT_SERIES(series)) Trap0(RE_PROTECTED);
+						Remove_Series(series, begin, count);
+					}
 					index = begin;
 				}
 				if (flags & (1<<PF_INSERT | 1<<PF_CHANGE)) {
@@ -1069,6 +1072,7 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 					}
 					if (IS_UNSET(item)) Trap1(RE_NO_VALUE, rules-1);
 					if (IS_END(item)) goto bad_end;
+					if (IS_PROTECT_SERIES(series)) Trap0(RE_PROTECTED);
 					if (IS_BLOCK_INPUT(parse)) {
 						index = Modify_Block(GET_FLAG(flags, PF_CHANGE) ? A_CHANGE : A_INSERT,
 								series, begin, item, cmd, count, 1);

src/tests/units/parse-test.r3

@@ -60,6 +60,30 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "Modifiers on protected series"
+;@@ https://github.com/Oldes/Rebol-issues/issues/2290
+	s: protect "aaa"
+	b: protect [1 2]
+	--test-- "INSERT"
+		--assert error? err: try [parse s [insert "a" to end]]
+		--assert err/id = 'protected
+		--assert error? err: try [parse b [insert "a" to end]]
+		--assert err/id = 'protected
+
+	--test-- "REMOVE"
+		--assert error? err: try [parse s [remove "a" to end]]
+		--assert err/id = 'protected
+		--assert error? err: try [parse b [remove integer! to end]]
+		--assert err/id = 'protected
+
+	--test-- "CHANGE"
+		--assert error? err: try [parse s [change "a" "b" to end]]
+		--assert err/id = 'protected
+		--assert error? err: try [parse s [change integer! "b" to end]]
+		--assert err/id = 'protected
+
+===end-group===
+
 ===start-group=== "DO"
 
 --test-- "issue-2083"