TEST: Oldes/Rebol-issues#1883

Author: Oldes

src/tests/units/evaluation-test.r3

@@ -178,6 +178,10 @@ Rebol [
 		b: [print "OK"]
 		--assert block? do 'b
 
+	--test-- "do set-word!"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1883
+		--assert all [error? e: try [do quote a:] e/id = 'invalid-arg]
+
 ===end-group===
 
 ===start-group=== "do path!"
@@ -201,6 +205,10 @@ Rebol [
 		--assert word? do first b
 		--assert path? do second b
 
+	--test-- "do set-path!"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1883
+		--assert all [error? e: try [do quote a/1:] e/id = 'invalid-arg]
+
 ===end-group===
 
 ===start-group=== "attempt"