diff --git a/src/tests/units/evaluation-test.r3 b/src/tests/units/evaluation-test.r3
index 595a40cc18..5da8471709 100644
--- a/src/tests/units/evaluation-test.r3
+++ b/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"