diff --git a/src/tests/units/parse-test.r3 b/src/tests/units/parse-test.r3
index 54770081af..1833ac4e9e 100644
--- a/src/tests/units/parse-test.r3
+++ b/src/tests/units/parse-test.r3
@@ -202,6 +202,14 @@ Rebol [
 		[[1]] = parse [1] [collect [collect set a keep skip]]
 		a = [1]
 	]
+	a: none --assert all [
+		[[1]] = parse [1] [collect [collect set a [keep skip]]]
+		a = [1]
+	]
+	a: none --assert all [
+		[[1]] = parse [1] [collect [collect [set a keep skip]]] ;set is not related to collect!
+		a = 1
+	]
 	a: none --assert all [
 		#[true] = parse [1] [collect set a [collect set a keep skip]]
 		a = [1]
@@ -277,6 +285,14 @@ Rebol [
 		[[#"1"]] = parse "1" [collect [collect set a keep skip]]
 		a = [#"1"]
 	]
+	a: none --assert all [
+		[[#"1"]] = parse "1" [collect [collect set a [keep skip]]]
+		a = [#"1"]
+	]
+	a: none --assert all [
+		[[#"1"]] = parse "1" [collect [collect [set a keep skip]]] ;set is not related to collect!
+		a = #"1"
+	]
 	a: none --assert all [
 		#[true] = parse "1" [collect set a [collect set a keep skip]]
 		a = [#"1"]