anchor.diff:  parse_ParameterizedType(Tokens) ->
       {Type,Rest} = parse_SimpleDefinedType(Tokens),
       {Params,Rest2} = parse_ActualParameterList(Rest),
  -    {{pt,Type,Params},Rest2}.
  +    {#type{def={pt,Type,Params}},Rest2}.
   
   parse_ParameterizedValue(Tokens) ->
       {Value,Rest} = parse_SimpleDefinedValue(Tokens),
  
positive.code: 		      Result ->
  			  Result
  		  end,
      case hd(Rest5) of
  	{'(',_} ->
  	    {Constraints,Rest6} = parse_Constraints(Rest5),
  	    if is_record(Type,type) ->
  		    {Type#type{constraint=merge_constraints(Constraints),
  			       tag=Tag2},Rest6};
  	       true ->
  		    {#type{def=Type,constraint=merge_constraints(Constraints),
  			   tag=Tag2},Rest6}
  	    end;
  	_ ->
  	    if is_record(Type,type) ->
  		    {Type#type{tag=Tag2},Rest5};
  	       true ->
  		    {#type{def=Type,tag=Tag2},Rest5}
  	    end
      end.
  
  parse_BuiltinType([{'BIT',_},{'STRING',_}|Rest]) ->
  
negative.code: 	    {Name,Rest3} = parse_FieldName(Rest2),
  	    case lists:last(Name) of
  		{typefieldreference,_FieldName} ->
  		    {#type{def={'TypeFromObject',Objects,Name}},Rest3};
  		_ ->
  		    throw({asn1_error,{get_line(hd(Rest2)),get(asn1_module),
  				       [got,get_token(hd(Rest2)),expected,
  