anchor.diff:          DissFilename = WriteDissFile(BeamFilename),
           case Readlines(DissFilename) of
             {ok, Data} -> Data;
  -          error -> error
  -        end;
  -        (error) -> error
  +          {error, Reason} -> {error, Reason}
  +        end
       end,
   
       Run = fun(Filename, Source) ->
  
positive.code:       Output = case compile:file(Filename, [binary, debug_info]) of
          % second arg is module name
          {ok, _, BeamCode} -> Diss({ok, Filename, BeamCode});
          error -> Diss(error)
        end,
        io:format("~p~n", [Output])
      end,
  
negative.code: main(Args)->
      DecodeData = fun(Data) ->
        case unicode:characters_to_list(Data) of
          {incomplete, _, _} -> {error, "Problem decoding"};
          {error, _, _} -> {error, "Problem decoding"};
          List -> List
        end
      end,
  