FIX: crash when used bind on recursive data

resolves: Oldes/Rebol-issues#2278

Author: Oldes

src/core/c-frame.c

@@ -815,6 +815,8 @@
 	REBCNT n;
 	REBFLG selfish = !IS_SELFLESS(frame);
 
+	CHECK_STACK(&n);
+
 	for (; NOT_END(value); value++) {
 		if (ANY_WORD(value)) {
 			//Print("Word: %s", Get_Sym_Name(VAL_WORD_CANON(value)));

src/tests/units/crash-test.r3

@@ -232,6 +232,13 @@ foreach [n s] system/schemes [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/767
 	--assert same? :greater? copy :greater? ;-no crash
 
+--test-- "recursive bind"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2278
+	obj: make object! [x: 10]
+	blk: copy [x]
+	append/only blk blk
+	--assert all [error? e: try [bind block obj] e/id = 'stack-overflow]
+
 ===end-group===
 
 ~~~end-file~~~