anchor.diff:  			io:fwrite("mnesia is stopping\n")
   	end.
   %% @hidden
  -ts00([H | T], Acc) ->
  -	case mnesia:table_info(H, record_name) of
  -		gtt ->
  -			ts00(T, [H | Acc]);
  -		_ ->
  -			ts00(T, Acc)
  -	end;
  -ts00([], Acc) ->
  -	ts01(lists:reverse(Acc), 0, []).
  -%% @hidden
  -ts01([H | T], Max, Acc) ->
  +ts00([H | T], Max, Acc) ->
   	NewMax = case length(atom_to_list(H)) of
   		N when N > Max ->
   			N;
   		_ ->
   			Max
   	end,
  -	ts01(T, NewMax, [H | Acc]);
  -ts01([], Max, Acc) ->
  -	ts02(lists:reverse(Acc), Max, 0, []).
  -%% @hidden
  -ts02([H | T], NameLen, Max, Acc) ->
  +	ts00(T, NewMax, [H | Acc]);
  +ts00([], Max, Acc) ->
  +	ts01(lists:reverse(Acc), Max, 0, []).
  +%% @hidden
  +ts01([H | T], NameLen, Max, Acc) ->
   	Size = mnesia:table_info(H, size),
   	NewMax = case length(integer_to_list(Size)) of
   		N when N > Max ->
  
positive.code: 		_ ->
  			Max
  	end,
  	ts02(T, NameLen, NewMax, [{H, Size} | Acc]);
  ts02([], NameLen, Max, Acc) ->
  	io:fwrite("Table sizes:\n"),
  	ts03(lists:reverse(Acc), NameLen, Max).
  %% @hidden
  ts03([{Name, Size} | T], NameLen, SizeLen) ->
  	io:fwrite("~*s: ~*b\n", [NameLen + 4, Name, SizeLen, Size]),
  	ts03(T, NameLen, SizeLen);
  ts03([], _, _) ->
  	ok.
  
  -spec di() -> Result
  
negative.code: -spec ts() -> ok.
  %% @doc Dipslay the total number of records in ocs tables.
  ts() ->
  	case mnesia:system_info(is_running)  of
  		yes ->
  			ts00(tables(), 0, []);
  		no ->
  			io:fwrite("mnesia is not running\n");
  		starting ->
  