FIX: replace binary! integer! integer!

fixes: Oldes/Rebol-issues#2412

Author: Oldes

src/mezz/mezz-series.r

@@ -145,7 +145,15 @@ replace: func [
 			length? :search
 		]
 		binary? target [
-			unless binary? :search [search: to-binary :search] ; Must be convertable
+			unless binary? :search [ ; Must be convertable
+				if integer? :search [
+					if any [:search > 255 :search < 0] [
+						cause-error 'Script 'out-of-range :search
+					]
+					search: to char! :search
+				]
+				search: to binary! :search
+			] 
 			length? :search
 		]
 		any-block? :search [length? :search]

src/tests/units/series-test.r3

@@ -548,6 +548,13 @@ Rebol [
 	--assert 32 = take #{20}
 	--assert  4 = take #{04}
 
+--test-- "REPLACE binary! integer! integer!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2412
+	b: #{010201}
+	--assert #{010301} = replace b 2 3
+	--assert #{000300} = replace/all b 1 0
+	--assert error? try [replace b 257 0]
+
 --test-- "any-string? binary!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/820
 	--assert not any-string? #{}