anchor.diff:          erl_value(Val)
       catch
           _:_ -> 
  -            ?LogDebug("Cannot convert this to erlang term: ~p", [Val]),
  +            ?LogDebug("Cannot convert this to erlang term: ~10000p", [Val]),
               ?ClientError({})
       end.
   
  
positive.code: io_to_db(Item,Old,Type,Len,Prec,Def,false,Val) when is_binary(Val);is_list(Val) ->
      try
          {DefAsStr,OldAsStr} = case Type of
              binterm ->  { io_to_binstr(io_lib:format("~p", [Def]))
                          , io_to_binstr(io_lib:format("~p", [term_to_binterm(Old)]))};
              _ ->        { io_to_binstr(io_lib:format("~p", [Def]))
                          , io_to_binstr(io_lib:format("~p", [Old]))}
          end,
          % ?LogDebug("DefAsStr ~tp ~ts~n",[<<DefAsStr/binary,1>>,<<DefAsStr/binary,1>>]),
          % ?LogDebug("OldAsStr ~tp ~ts~n",[<<OldAsStr/binary,1>>,<<OldAsStr/binary,1>>]),
          ValAsStr = io_to_binstr(io_lib:format("~ts", [Val])),
          % ?LogDebug("ValAsStr ~tp ~ts~n",[<<ValAsStr/binary,1>>,<<ValAsStr/binary,1>>]),
          if
  
negative.code:             true -> term_to_io(Val)
          end
      catch
          _:_ -> io_lib:format("~10000tp",[Val])
      end.
  
  atom_to_io(Val) ->
  