anchor.diff:  print(Binary, Max) when is_binary(Binary) ->
       B = binary_to_list(Binary, 1, lists:min([Max, size(Binary)])),
       {L, Len} = alist_start(B, Max-4),
  -    {["<<", L, ">>"], Len+4};
  +    {Res, Length} = case L of
  +        [91, X, 93] ->
  +            {X, Len - 2};
  +        X ->
  +            {X, Len}
  +    end,
  +    {["<<", Res, ">>"], Length+4};
   
   print(Float, _Max) when is_float(Float) ->
       %% use the same function io_lib:format uses to print floats
  
positive.code:                 {String, Length} ->
                      {Value, RealLen} = case C of
                          $s ->
                              % strip off the doublequotes
                              {string:substr(String, 2, length(String) -2), Length -2};
                          _ ->
                              {String, Length}
                      end,
  
negative.code:                     {Value, RealLen} = case H of
                          "s" ->
                              % strip off the doublequotes, if applicable
                              Trimmed = unquote_string(lists:flatten(String)),
                              {Trimmed, length(Trimmed)};
                          _ ->
                              {String, Length}
  