anchor.diff:         end).
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  -%% Lookup the current schema (key) in use. Fails if no schema installed.
  +%% Lookup the current schema (key) in use. 
  +%%  If there is no schema, returns 'undefined'.
  +%%  If schematool is not initialized, fails in wait_for_mnesia().
   
   current_schema() ->
       wait_for_mnesia(),
  
positive.code: atomic(Err, Fail) ->
      Fail(Err).
  
  %% Used inside txn to check that schematool has been installed.
  %% Aborts if schematool_info does not exist
  %%
  %% NOTE: if you've done wait_for_mnesia() before, then this will
  %%  always succeed. Seldom useful.
  
negative.code: 
  consult_one([F|Fs]) ->
      case catch consult_schema(F) of
  	{'EXIT', Rsn} ->
  	    %% io:format("Tried to read ~p, failed with ~p\n",
  	    %% [F, Rsn]),
  	    consult_one(Fs);
  	Res ->
  	    Res
  