anchor.diff:  	{value, Val} = lists:keysearch(named_table, 1, FullHeader),
   	{value, Kp} = lists:keysearch(keypos, 1, FullHeader),
   	{value, Sz} = lists:keysearch(size, 1, FullHeader),
  -	Ei = case lists:keysearch(extended_info, 1, FullHeader) of
  -		 {value, Ei0} -> Ei0;
  -		 _ -> {extended_info, []}
  +	Ei = case lists:keyfind(extended_info, 1, FullHeader) of
  +		 false -> {extended_info, []};
  +		 Ei0 -> Ei0
   	     end,
   	{ok, [N,Type,P,Val,Kp,Sz,Ei,{version,{Major,Minor}}]}
       catch
  
positive.code:     end;
  
  get_header_data(Name, false) ->
     case wrap_chunk(Name,start,1,false) of 
         {C,[Tup]} when is_tuple(Tup) ->
  	   L = tuple_to_list(Tup),
  	   case verify_header_mandatory(L) of
  	       false ->
  		   throw(badfile);
  	       true ->
  		   Major = case lists:keysearch(major_version,1,L) of
  			       {value,{major_version,Maj}} ->
  				   Maj;
  			       _ ->
  				   0
  			   end,
  		   Minor = case lists:keysearch(minor_version,1,L) of
  			       {value,{minor_version,Min}} ->
  				   Min;
  			       _ ->
  				   0
  			   end,
  		   FtOptions = 
  		       case lists:keysearch(extended_info,1,L) of
  			   {value,{extended_info,I}} 
  			   when is_list(I) ->
  			       #filetab_options
  					 {
  					 object_count = 
  
negative.code: 	[] ->
  	    {ok,NewState};
  	List ->
  	    ets:insert(Tab, List),
  	    load_table(ReadFun, NewState, Tab)
      end.
  
  create_tab(I) ->
      {name, Name} = lists:keyfind(name, 1, I),
      {type, Type} = lists:keyfind(type, 1, I),
      {protection, P} = lists:keyfind(protection, 1, I),
      {named_table, Val} = lists:keyfind(named_table, 1, I),
      {keypos, _Kp} = Keypos = lists:keyfind(keypos, 1, I),
      {size, Sz} = lists:keyfind(size, 1, I),
      try
  	Tab = ets:new(Name, [Type, P, Keypos | named_table(Val)]),
  	{ok, Tab, Sz}
      catch
  	_:_ ->
  