FIX: correcting datatype value detection logic

related to: Oldes/Rebol-issues#256

Author: Oldes

src/core/t-block.c

@@ -155,8 +155,11 @@ static void No_Nones_Or_Logic(REBVAL *arg) {
 			for (; index >= start && index < end; index += skip) {
 				value = BLK_SKIP(series, index);
 				if (VAL_TYPE(value) == VAL_TYPE(target)) {
-					if (IS_DATATYPE(target) && VAL_DATATYPE(value) == VAL_DATATYPE(target)) return index;
-					else if EQUAL_TYPESET(value, target)
+					if (IS_DATATYPE(target)) {
+						if (VAL_DATATYPE(value) == VAL_DATATYPE(target))
+							return index;
+					}
+					else if (EQUAL_TYPESET(value, target))
 						return index;
 				}
 				if (flags & AM_FIND_MATCH) break;

src/tests/units/datatype-test.r3

@@ -38,6 +38,9 @@ Rebol [
 		--assert ["aha"] = find reduce [integer! "aha"] series!
 		--assert not none? find any-string! ref!
 
+		--assert 1 = index? find [#{00}  #[string!] #[binary!]] #[binary!]
+		--assert 3 = index? find/only [#{00}  #[string!] #[binary!]] #[binary!]
+
 		--assert 2 = index? find/only reduce ["" string! any-string! binary!] string!
 		--assert 3 = index? find/only reduce ["" string! any-string! binary!] any-string!
 		--assert 1 = index? find reduce ["" string! any-string! binary!] any-string!