CHANGE: using append instead of insert tail when saving data to binary

related to: Oldes/Rebol-issues#1909

Author: Oldes

src/mezz/mezz-save.r

@@ -112,7 +112,7 @@ save: function [
 		file? where [write where data] ; WRITE converts to UTF-8, saves overhead
 		url? where [write where data]  ; But some schemes don't support it
 		none? where [data] ; just return the UTF-8 binary
-		'else [insert tail where data] ; string! or binary!, insert data
+		'else [append where data] ; string! or binary!, insert data
 	]
 ]
 

src/tests/units/codecs-test.r3

@@ -54,7 +54,13 @@ Rebol [
 
 ===end-group===
 
-===start-group=== "Invalid SAVE"
+===start-group=== "SAVE function"
+	--test-- "SAVE to binary!"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/1909
+		--assert "1"     = load save #{} "1"
+		--assert #{CAFE} = load save #{} #{CAFE}
+		--assert [1 2]   = load save #{} [1 2]
+
 	--test-- "invalid image SAVE"
 		--assert error? try [save %temp.bmp [1 2]]
 		--assert error? try [save %temp.png [1 2]]