FIX: POKE into vector! does not throw out of range error

fixes: Oldes/Rebol-issues#2427

Author: Oldes

src/core/c-do.c

@@ -549,6 +549,9 @@ void Trace_Arg(REBINT num, REBVAL *arg, REBVAL *path)
 	case PE_BAD_SET:
 		Trap2(RE_BAD_PATH_SET, pvs.value, pvs.select);
 		break;
+	case PE_BAD_RANGE:
+		Trap_Range(selector);
+		break;
 	}
 }
 

src/core/t-vector.c

@@ -618,7 +618,7 @@ void Set_Vector_Row(REBSER *ser, REBVAL *blk)
 
 	if (IS_INTEGER(sel) || IS_DECIMAL(sel)) {
 		n = Int32(sel);
-		if (n == 0) return PE_NONE;
+		if (n == 0) return (pvs->setval) ? PE_BAD_RANGE : PE_NONE; // allow PICK with zero index but not for POKE
 		if (n < 0) n++;
 	} else if (IS_WORD(sel)) {
 		if (set == 0) {

src/tests/units/vector-test.r3

@@ -399,4 +399,24 @@ Rebol [
 	]
 ===end-group===
 
+
+===start-group=== "POKE"
+	--test-- "POKE into vector!"
+	v: #[ui32! [1 2 3]]
+	--assert all [
+		10 = poke v 1 10
+		10 = pick v 1
+	]
+	;@@  https://github.com/Oldes/Rebol-issues/issues/2427
+	--assert all [
+		error? err: try [poke v 10 1]
+		err/id = 'out-of-range
+	]
+	--assert all [
+		error? err: try [poke v 0 1]
+		err/id = 'out-of-range
+	]
+===end-group===
+
+
 ~~~end-file~~~