anchor.diff:  		  ||R<-Ranges])).
   
   
  +create_temp_dir()->
  +    case find_homedir() of 
  +        none ->
  +            {error, "Wrangler could not infer home directory"};
  +        Path ->
  +            DotWranglerDir=filename:join(Path, ".wrangler"),
  +            TempDir=filename:join(DotWranglerDir, "temp"),
  +            case filelib:is_dir(DotWranglerDir) of
  +                true ->
  +                    case filelib:is_dir(TempDir) of 
  +                        true ->
  +                            ok;
  +                        _ ->
  +                            file:make_dir(TempDir)
  +                    end;
  +                false ->
  +                    case file:make_dir(DotWranglerDir) of 
  +                        ok ->
  +                            file:make_dir(TempDir);
  +                        {error, Reason} ->
  +                            {error, Reason}
  +                    end
  +            end
  +    end.
  +                                
  +                                                        
  +                
  +                    
  
positive.code: start_hash_process(FilesDeleted,Inc) ->
      %% I put NewFiles here too! 
      %ObsoleteFiles = FilesDeleted ++ FilesChanged ++ NewFiles,  
      ExpHashTab = from_dets(expr_hash_tab, ?ExpHashTab, Inc),
      case file:read_file(?ExpSeqFile) of
  	{ok, Binary} ->
  	    Data = binary_to_term(Binary),
  
negative.code: %%       between Ets and Dets                                 %%
  %%                                                            %%
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  from_dets(Ets, Dets, Inc) when is_atom(Ets) ->
      EtsRef = ets:new(Ets, [set, public]),
      case Inc of
  