anchor.diff:      any_component_relation(S,Cs,CNames,NamePath,InnerAcc++CRelPath++Acc);
   any_component_relation(S,Type,CNames,NamePath,Acc) when is_record(Type,type) ->
       CRelPath =
  -	case constraint_member(componentrelation,Type#type.constraint) of
  -	    {true,{_,_,AtNotation}} ->
  +	case lists:keyfind(componentrelation, 1, Type#type.constraint) of
  +	    {_,_,AtNotation} ->
   		AtNot = extract_at_notation(AtNotation),
   		evaluate_atpath(S,NamePath,CNames,AtNot);
  -	    _ ->
  +	    false ->
   		[]
   	end,
       InnerAcc =
  
positive.code:     %% In this component there must be a simple table constraint
      %% o.w. the asn1 code is wrong.
      #type{def=OCFT,constraint=Cnstr} = TS,
      case constraint_member(simpletable,Cnstr) of
  	{true,{simpletable,_OSRef}} ->
  	    simple_table_info(S,OCFT,Path);
  	_ ->
  	    error({type,{"missing expected simple table constraint",
  			 Cnstr},S})
      end;
  
negative.code: 
  innertype_comprel1(S,T = #type{def=Def,constraint=Cons,tablecinf=TCI},Path) ->
      Ret =
  	case lists:keyfind(componentrelation, 1, Cons) of
  	    {_,{_,_,ObjectSet},AtList} ->
  		%% This AtList must have an "outermost" at sign to be
  		%% relevent here.
  		[{_,AL=[#'Externalvaluereference'{value=_Attr}|_R1]}|_R2] 
  