FIX: limit SET to just WORD! and LIT-WORD! instead of ANY-WORD!

Fixes: metaeducation/rebol-issues#2366

Author: Oldes

src/boot/natives.r

@@ -546,7 +546,7 @@ parse: native [
 
 set: native [
 	{Sets a word, path, block of words, or object to specified value(s).}
-	word [any-word! any-path! block! object!] {Word, block of words, path, or object to be set (modified)}
+	word [word! lit-word! any-path! block! object!] {Word, block of words, path, or object to be set (modified)}
 	value [any-type!] {Value or block of values}
 	/any {Allows setting words to any value, including unset}
 	/only {Block or object value argument is set as a single value}

src/tests/units/evaluation-test.r3

@@ -405,6 +405,11 @@ Rebol [
 		--assert d = set/any [A B] d
 		--assert all [a = 4 unset? :b]
 
+	--test-- "Set - issue 2366"
+	;@@https://github.com/rebol/rebol-issues/issues/2366
+		--assert error? try [set #ab 1]
+		--assert error? try [set #12 2]
+
 
 ===end-group===