anchor.diff:  
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %%% UCS-2 support
  -%%% FIXME! Don't know how to encode UCS-2!! 
  +%%% FIXME! Don't know how to encode UCS-2!!
   %%% Currently I just encode as UCS-4, but strips the 16 higher bits.
   char_to_ucs2be(Ch) ->
       true = is_iso10646(Ch),
  
positive.code: to_utf8(Ch) -> char_to_utf8(Ch).
  
  from_utf8(Bin) when is_binary(Bin) -> from_utf8(binary_to_list(Bin));
  from_utf8(List) -> 
      case expand_utf8(List) of
  	{Result,0} -> Result;
  	{_Res,_NumBadChar} ->
  
negative.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2005-2009. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  %% compliance with the License. You should have received a copy of the
  %% Erlang Public License along with this software. If not, it can be
  %% retrieved online at http://www.erlang.org/.
  %%
  %% Software distributed under the License is distributed on an "AS IS"
  %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  %% the License for the specific language governing rights and limitations
  %% under the License.
  %%
  %% %CopyrightEnd%
  %%
  
  