anchor.diff:  	    tag=lists:map(fun(#tag{type={default,TTx}}=TempTag) ->
   				  TempTag#tag{type=TTx};
   			     (Other) -> Other
  -			  end, NewTags)};
  -check_type(_S,Type,Ts) ->
  -    exit({error,{asn1,internal_error,Type,Ts}}).
  +			  end, NewTags)}.
   
   
   %%
  
positive.code: 		TempNewDef#newt{tag=merge_tags(Tag,CheckedT#type.tag),
  				type=CheckedT#type.def};
  	    'ASN1_OPEN_TYPE' ->
  		TempNewDef;
  	    Other ->
  		exit({'cant check' ,Other})
  	end,
      #newt{type=TDef,tag=NewTags,constraint=NewConstr,inlined=Inlined} = NewDef,
      Ts#type{def=TDef,
  
negative.code: 	    S;
  	_ ->
  	    parse_and_save(S,ModuleName),
  	    Mod = #module{} = asn1_db:dbget(ModuleName,'MODULE'),
  	    S#state{mname=ModuleName,module=Mod}
      end.
  
  get_renamed_reference(S,Name,Module) ->
      case renamed_reference(S,Name,Module) of
  