anchor.diff:  main(Args)->
       DecodeData = fun(Data) ->
         case unicode:characters_to_list(Data) of
  -        {incomplete, _, _} -> error;
  -        {error, _, _} -> error;
  +        {incomplete, _, _} -> {error, "Problem decoding"};
  +        {error, _, _} -> {error, "Problem decoding"};
           List -> List
         end
       end,
  
positive.code:         DissFilename = WriteDissFile(BeamFilename),
          case Readlines(DissFilename) of
            {ok, Data} -> Data;
            error -> error
          end;
          (error) -> error
      end,
  
      Run = fun(Filename, Source) ->
  
negative.code:     Readlines = fun(Filename) ->
        case file:read_file(Filename) of
          {ok, Data} -> DecodeData(Data);
          {error, _} -> {error, "Problem reading file"}
        end
      end,
  
  