anchor.diff:  %% @end
   %%--------------------------------------------------------------------
   compare_records(T1, T2, ShouldChange) when is_tuple(T1), is_tuple(T2), is_list(ShouldChange) ->
  -    %% Two records as input, we can't give field name in errors but this is simpler to call.
  -    %% When we don't have the real field names, we use numbers instead.
  -    Fields = lists:seq(1, size(T1) - 1),
  +    %% Two records as input, see if they are standard ones (from siprecords.hrl), and
  +    %% otherwise use numbers istead of field names
  +    Fields =
  +	case test_record_info(element(1, T1)) of
  +	    undefined ->
  +		lists:seq(1, size(T1) - 1);
  +	    T1_Fields ->
  +		T1_Fields
  +	end,
       compare_records(T1, T2, ShouldChange, Fields).
   
   %%--------------------------------------------------------------------
  
positive.code: compare_records2([], [], _RecName, [], _ShouldChange) ->
      ok.
  
  
negative.code: 	]).
  
  
  %%--------------------------------------------------------------------
  %% Include files
  %%--------------------------------------------------------------------
  -include("siprecords.hrl").
  
  
  %%====================================================================
  %% External functions
  %%====================================================================
  