anchor.diff:  
   parse_SelectionType([{identifier,_,Name},{'<',_}|Rest]) ->    
       {Type,Rest2} = parse_Type(Rest),
  -    {{'SelectionType',Name,Type},Rest2};
  +    {#type{def={'SelectionType',Name,Type}},Rest2};
   parse_SelectionType(Tokens) ->
       throw({asn1_error,{get_line(hd(Tokens)),get(asn1_module),
   		       [got,get_token(hd(Tokens)),expected,'identifier <']}}).
  
positive.code: parse_BuiltinType([{'SET',_},{'OF',_},Id={identifier,_,_},Lt={'<',_}|Rest]) ->
  %% TODO: take care of the identifier for something useful
      {Type,Rest2} = parse_SelectionType([Id,Lt|Rest]),
      {#type{def={'SET OF',#type{def=Type,tag=[]}}},Rest2};
  
  
  parse_BuiltinType([{'SET',_},{'OF',_},{identifier,_,_}|Rest]) ->
  %%TODO: take care of the identifier for something useful
  
negative.code: parse_BuiltinType([{'SEQUENCE',_},{'OF',_},Id={identifier,_,_},Lt={'<',_}|Rest]) ->
  %% TODO: take care of the identifier for something useful
      {Type,Rest2} = parse_SelectionType([Id,Lt|Rest]),
      {#type{def={'SEQUENCE OF',Type}},Rest2};
  
  parse_BuiltinType([{'SEQUENCE',_},{'OF',_},{identifier,_,_} |Rest]) ->
  %% TODO: take care of the identifier for something useful
  