anchor.diff:              {[$"|L], Len + 1}
       catch
           throw:unprintable ->
  -            {R, Len} = list_body([H|T], Max-2, Options),
  +            {R, Len} = list_body([H|T], Max-2, Options, false),
               {[$[, R, $]], Len + 2}
       end;
   alist_start([H|T], Max, Options) when H =:= 9; H =:= 10; H =:= 13 ->
  
positive.code:     %% need to convert the proplist to a record
      print(Term, Max, prepare_options(Options, #print_options{}));
  print(_, Max, _Options) when Max < 0 -> {"...", 3};
  print(Tuple, Max, Options) when is_tuple(Tuple) -> 
      {TC, Len} = tuple_contents(Tuple, Max-2, Options),
      {[${, TC, $}], Len + 2};
  
negative.code: %%
  alist_start([], _Max, _Options) -> {"[]", 2};
  alist_start(_, Max, _Options) when Max < 4 -> {"...", 3};
  alist_start(_, _Max, #print_options{depth=0}) -> {"[...]", 3};
  alist_start(L, Max, #print_options{force_strings=true} = Options) ->
      alist(L, Max, Options);
  alist_start([H|T], Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e ->  % definitely printable
  