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(L, Max, Options) ->
  -    {R, Len} = list_body(L, Max-2, Options),
  +    {R, Len} = list_body(L, Max-2, Options, false),
       {[$[, R, $]], Len + 2}.
   
   alist([], _Max, #print_options{force_strings=true}) -> {"", 0};
  
positive.code:     {L, length(L)};
  
  print(List, Max, Options) when is_list(List) ->
      alist_start(List, Max, Options).
  
  %% Returns {List, Length}
  tuple_contents(Tuple, Max, Options) ->
      L = tuple_to_list(Tuple),
      list_body(L, Max, Options).
  
  %% Format the inside of a list, i.e. do not add a leading [ or trailing ].
  %% Returns {List, Length}
  list_body([], _Max, _Options) -> {[], 0};
  list_body(_, Max, _Options) when Max < 4 -> {"...", 3};
  list_body([H|T], Max, Options) -> 
      {List, Len} = print(H, Max, Options),
      {Final, FLen} = list_bodyc(T, Max - Len, Options),
      {[List|Final], FLen + Len};
  list_body(X, Max, Options) ->  %% improper list
      {List, Len} = print(X, Max - 1, Options),
      {[$|,List], Len + 1}.
  
  list_bodyc([], _Max, _Options) -> {[], 0};
  list_bodyc(_, Max, _Options) when Max < 4 -> {"...", 3};
  list_bodyc([H|T], Max, Options) -> 
      {List, Len} = print(H, Max, Options),
      {Final, FLen} = list_bodyc(T, Max - Len - 1, Options),
      {[$,, List|Final], FLen + Len + 1};
  list_bodyc(X, Max, Options) ->  %% improper list
      {List, Len} = print(X, Max - 1, Options),
      {[$|,List], Len + 1}.
  
  
negative.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(_, _, #print_options{depth=0}) -> {"...", 3};
  print(Tuple, Max, Options) when is_tuple(Tuple) -> 
      {TC, Len} = tuple_contents(Tuple, Max-2, Options),
      {[${, TC, $}], Len + 2};
  