anchor.diff:  
   list_to_utf32_big_bsyntax(List,{utf32,big}) ->
       FList = flatx(List),
  -    erlang:concat_binary([ if 
  -			       is_binary(E) ->
  -				   E;
  -			       true -> 
  -				   <<E/utf32-big>>
  -			   end || E <- FList ]);
  +    list_to_binary([ if
  +			 is_binary(E) ->
  +			     E;
  +			 true ->
  +			     <<E/utf32-big>>
  +		     end || E <- FList ]);
   list_to_utf32_big_bsyntax(List,latin1) ->
       FList = flatb(List),
  -    erlang:concat_binary([ <<E/utf32-big>> || E <- FList ]).
  +    list_to_binary([ <<E/utf32-big>> || E <- FList ]).
   
   
   utf32_little_to_list_bsyntax(<<>>) ->
  
positive.code: 
  list_to_utf8_bsyntax(List,unicode) ->
      FList = flatx(List),
      erlang:concat_binary([ if 
  			       is_binary(E) ->
  				   E;
  			       true -> 
  				   <<E/utf8>>
  			   end || E <- FList ]);
  list_to_utf8_bsyntax(List,latin1) ->
      FList = flatb(List),
      erlang:concat_binary([ <<E/utf8>> || E <- FList ]).
  
      
      
  
negative.code: 
  list_to_utf16_big_bsyntax(List,{utf16,big}) ->
      FList = flatx(List),
      list_to_binary([ if
  			 is_binary(E) ->
  			     E;
  			 true ->
  			     <<E/utf16-big>>
  		     end || E <- FList ]);
  list_to_utf16_big_bsyntax(List,latin1) ->
      FList = flatb(List),
      list_to_binary([ <<E/utf16-big>> || E <- FList ]).
  
  
  utf16_little_to_list_bsyntax(<<>>) ->
  