anchor.diff:  
   unmarshal_string(LenType, Data, Pos) ->
       case unmarshal(LenType, Data, Pos) of
  -        more -> more;
  +        more -> 
  +			more;
           {ok, Length, Data1, _} when byte_size(Data1) < Length ->
               more;
           {ok, Length, Data1, Pos1} ->
  
positive.code:                 more -> more;
                  {ok, Type} ->
                      case unmarshal(Type, Data1, Pos1) of
                          more -> more;
                          {ok, Value, Data2, Pos2} -> {ok, #dbus_variant{type=Type, value=Value}, Data2, Pos2}
                      end
              end
      end.
  
negative.code:     {ok, lists:reverse(Acc), Data, Pos};
  unmarshal_array(SubType, Length, Data, Acc, Pos) when is_integer(Length), Length > 0 ->
      case unmarshal(SubType, Data, Pos) of
          more -> 
  			more;
          {ok, Value, Data1, Pos1} ->
              Size = Pos1 - Pos,
              unmarshal_array(SubType, Length - Size, Data1, [Value | Acc], Pos1)
  