Add missing bit to fill1_r instructions in set_return_code

Unix/set_return_code.icl

@@ -32,7 +32,7 @@ set_return_code_world_64 i world = code {
 	pop_b 1
 	pushI_a 0
 	or%
-	fill1_r _ 0 1 0 0
+	fill1_r _ 0 1 0 01
 .keep 0 2
 	fill_a 1 2
 	pop_a 2
@@ -46,7 +46,7 @@ set_return_code_world_32 i world = code {
 	:xxx
 	push_b_a 0
 	pop_b 1
-	fill1_r _ 0 1 0 0
+	fill1_r _ 0 1 0 01
 .keep 0 2
 	fill_a 1 2
 	pop_a 2