anchor.diff:  			false ->
   			    throw(badfile);
   			true ->
  -			    Major = case lists:keysearch(major,1,L) of
  -					{value,{major,Maj}} ->
  +			    Major = case lists:keyfind(major,1,L) of
  +					{major,Maj} ->
   					    Maj;
   					_ ->
   					    0
   				    end,
  -			    Minor = case lists:keysearch(minor,1,L) of
  -					{value,{minor,Min}} ->
  +			    Minor = case lists:keyfind(minor,1,L) of
  +					{minor,Min} ->
   					    Min;
   					_ ->
   					    0
   				    end,
   			    FtOptions = 
  -				case lists:keysearch(extended_info,1,L) of
  -				    {value,{extended_info,I}} 
  -				    when is_list(I) ->
  +				case lists:keyfind(extended_info,1,L) of
  +				    {extended_info,I} when is_list(I) ->
   					#filetab_options
   					    {
   					    object_count = 
  
positive.code:     options([Option], Keys, []).
  
  options(Options, [Key | Keys], L) when is_list(Options) ->
      V = case lists:keysearch(Key, 1, Options) of
              {value, {n_objects, default}} ->
                  {ok, default_option(Key)};
              {value, {n_objects, NObjs}} when is_integer(NObjs),
                                               NObjs >= 1 ->
                  {ok, NObjs};
              {value, {traverse, select}} ->
                  {ok, select};
              {value, {traverse, {select, MS}}} ->
                  {ok, {select, MS}};
              {value, {traverse, first_next}} ->
                  {ok, first_next};
              {value, {traverse, last_prev}} ->
                  {ok, last_prev};
  	    {value, {Key, _}} ->
  		badarg;
  	    false ->
  		Default = default_option(Key),
  
negative.code: 	    end,
  	    {ok,Tab};
  	{ok,{FinalMD5State,FinalCount,['$end_of_table',LastInfo],_}} ->
  	    ECount = case lists:keyfind(count,1,LastInfo) of
  			 {count,N} ->
  			     N;
  			 _ ->
  			     false
  		     end,
  	    EMD5 = case lists:keyfind(md5,1,LastInfo) of
  			 {md5,M} ->
  			     M;
  			 _ ->
  			     false
  