FIX: Deep copy MAP values when cloning an OBJECT

Resolves: Oldes/Rebol-issues#2687

Author: rgchris

src/include/sys-core.h

@@ -169,7 +169,7 @@ enum {
 #define TS_CODE ((CP_DEEP | TS_SERIES) & ~TS_NOT_COPIED)
 
 #define TS_FUNCLOS (TYPESET(REB_FUNCTION) | TYPESET(REB_CLOSURE))
-#define TS_CLONE ((CP_DEEP | TS_SERIES | TS_FUNCLOS) & ~TS_NOT_COPIED)
+#define TS_CLONE ((CP_DEEP | TS_SERIES | TS_FUNCLOS | TYPESET(REB_MAP)) & ~TS_NOT_COPIED)
 
 // Modes allowed by Bind related functions:
 enum {

src/tests/units/evaluation-test.r3

@@ -508,6 +508,17 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2686
 	--assert #[num: [one two three]] = compose #[num: ([one two three])]
 
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2687
+	*obp: make object! [one: 1 two: 2 tmp: #[three: (one + two)]]
+	*ob1: make *obp [one: 11]
+	*ob2: make *obp [two: 22]
+	*ob3: make *ob1 [two: 22]
+
+	--assert [3 13 23 33] = map-each obj reduce [*obp *ob1 *ob2 *ob3] [
+		select compose/deep obj/tmp 'three
+	]
+	
+
 ===end-group===
 
 ===start-group=== "unset value passing"