anchor.diff:  	    {Name,Rest3} = parse_FieldName(Rest2),
   	    case lists:last(Name) of
   		{typefieldreference,_FieldName} ->
  -		    {{'TypeFromObject',Objects,Name},Rest3};
  +		    {#type{def={'TypeFromObject',Objects,Name}},Rest3};
   		_ ->
   		    throw({asn1_error,{get_line(hd(Rest2)),get(asn1_module),
   				       [got,get_token(hd(Rest2)),expected,
  
positive.code: parse_ParameterizedType(Tokens) ->
      {Type,Rest} = parse_SimpleDefinedType(Tokens),
      {Params,Rest2} = parse_ActualParameterList(Rest),
      {{pt,Type,Params},Rest2}.
  
  parse_ParameterizedValue(Tokens) ->
      {Value,Rest} = parse_SimpleDefinedValue(Tokens),
  
negative.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}},Rest2};
  
  parse_BuiltinType([{'SET',_},{'OF',_},{identifier,_,_}|Rest]) ->
  %%TODO: take care of the identifier for something useful
  