anchor.diff:  	    parse_and_save(S,Imodule),
   	    case asn1_db:dbget(Imodule,'MODULE') of
   		undefined ->
  -		    throw({error,{asn1,{module_not_found,Imodule}}});
  +		    asn1_error(S, {undefined_import, Name, Module});
   		Im when is_record(Im,module) ->
   		    case is_exported(Im,Name) of
   			false ->
  -			    throw({error,
  -				   {asn1,{not_exported,{Im,Name}}}});
  +			    asn1_error(S, {undefined_export, Name});
   			_ ->
   			    ?dbg("get_imported, is_exported ~p, ~p~n",[Imodule,Name]),
   			    get_referenced_type(S,
  
positive.code: component_index1(S,Name,[_C|Cs],N) ->
      component_index1(S,Name,Cs,N+1);
  component_index1(S,Name,[],_) ->
      error({type,{asn1,"component of at-list was not"
  		 " found in substructure",Name},S}).
  
  get_unique_fieldname(S, #classdef{typespec=TS}) ->
      Fields = TS#objectclass.fields,
  
negative.code: 	{_,[H|_T]} ->
  	    case lists:member(H,Cnames) of
  		true -> [AtPathBelowTop];
  		_ -> asn1_error(S, {invalid_at_path, AtPath})
  	    end
      end;
  evaluate_atpath(_,_,_,_) ->
  