anchor.diff:  io_to_string(Bin) ->
       io_to_string(Bin,undefined).
   
  -io_to_string(Bin,Len) ->
  +io_to_string(Bin,Len) when is_binary(Bin) ->
       case strip_dquotes(Bin) of
           Bin ->  ?ClientError({"Missing double quotes for list string format",{Bin,Len}});
           B ->
               List = case unicode:characters_to_list(B, utf8) of
  -                L when is_list(L) ->  L;                      %% Bin was utf8 encoded
  -                _ ->                  binary_to_list(B)     %% Bin is bytewise encoded
  +                L when is_list(L) ->
  +                    lists:flatten(io_lib:format("~s",[un_escape_io(L)]));   %% Bin was utf8 encoded
  +                _ ->                  
  +                    lists:flatten(io_lib:format("~s",[un_escape_io(B)]))    %% Bin is bytewise encoded
               end,
               if
                   Len == undefined ->     List;
  
positive.code:         ?Info("item success~n", []),
  
          ?assertEqual(<<"\"abcde\"">>, string_to_io("abcde")),
          ?assertEqual(<<"\"123\"abc\"">>, string_to_io("123\"abc")),
  
          ?assertEqual("abcde", io_to_string(<<"\"abcde\"">>)),
          ?assertEqual("123\"abc", io_to_string(<<"\"123\"abc\"">>)),
  
          ?Info("Str0 äöü -> ~p~n",[[0|"äöü"]]),
  
  
negative.code:     end;
  t2s(T) -> io_lib:format("~p", [T]).
  
  % escape_io(Str) when is_list(Str) ->
  %     re:replace(Str, "(\")", "(\\\\\")", [global, {return, list}]);   
  % escape_io(Bin) when is_binary(Bin) ->
  %     re:replace(Bin, "(\")", "(\\\\\")", [global, {return, binary}]). 
  
  un_escape_io(Str) when is_list(Str) ->
      re:replace(Str, "(\\\\\")", "\"", [global, {return, list}]);
  un_escape_io(Bin) when is_binary(Bin) ->
      re:replace(Bin, "(\\\\\")", "\"", [global, {return, binary}]).
  
  string_to_io(Val) when is_list(Val) ->
      case io_lib:printable_unicode_list(Val) of
          true ->    
              unicode:characters_to_binary(io_lib:format("~p",[Val]));
          false ->
              list_to_binary(lists:flatten(io_lib:format("\"~tp\"",[Val])))
      end;                                    
  