anchor.diff:    <<16, StringEncoded/binary, Value:4/little-signed-unit:8>>.
   
   encode_cstring(String) when is_list(String) ->
  -    Bin = unicode:characters_to_binary([String]),
  -    <<Bin/binary, 0:8>>.
  +  Bin = unicode:characters_to_binary([String]),
  +  <<Bin/binary, 0:8>>.
   
   %% Size has to be greater than 4
   decode(<<Size:32/little-signed, Rest/binary>> = Binary) when byte_size(Binary) >= Size, Size > 4 ->
  
positive.code:   hexstr_to_bin(T, [V | Acc]).
  
  encode({obj,Items}) when is_list(Items) ->
      Bin = list_to_binary(lists:map(fun encode_element/1, Items)),
      <<(size(Bin)+5):32/little-signed,Bin/binary,0:8>>.
  
  encode_element({Name, Value}) when is_list(Name), is_float(Value) ->
    NameEncoded = encode_cstring(Name),
  
negative.code:   <<8, StringEncoded/binary, 1:8>>;
  
  encode_element({Name, {MegaSecs, Secs, MicroSecs}})
    when  is_list(Name),
          is_integer(MegaSecs),
          is_integer(Secs),
          is_integer(MicroSecs) ->
    StringEncoded = encode_cstring(Name),
    Unix = MegaSecs * 1000000 + Secs,
    Millis = Unix * 1000 + trunc(MicroSecs / 1000),
  