anchor.diff:      ?line {ok,OldCwd} = file:get_cwd(),
       ?line Dir = filename:join(?config(priv_dir, Config), "wildcard_one"),
       ?line ok = file:make_dir(Dir),
  +    do_wildcard_1(Dir,
  +		  fun(Wc) ->
  +			  filelib:wildcard(Wc, Dir, erl_prim_loader)
  +		  end),
       ?line file:set_cwd(Dir),
  -    ?line do_wildcard_1(Dir, fun(Wc) -> filelib:wildcard(Wc) end),
  +    do_wildcard_1(Dir,
  +		  fun(Wc) ->
  +			  L = filelib:wildcard(Wc),
  +			  L = filelib:wildcard(Wc, erl_prim_loader),
  +			  L = filelib:wildcard(Wc, "."),
  +			  L = filelib:wildcard(Wc, Dir)
  +		  end),
       ?line file:set_cwd(OldCwd),
       ?line ok = file:del_dir(Dir),
       ok.
  
positive.code:     del(Files),
      foreach(fun(D) ->
  		    ok = file:del_dir(filename:join(Dir, D))
  	    end, Dirs2 ++ Dirs1 ++ Dirs0).
  
  fold_files(Config) when is_list(Config) ->
      ?line Dir = filename:join(?config(priv_dir, Config), "fold_files"),
  
negative.code:     ?line ["abc","abcdef"] = Wcf("a*{def,}"),
      ?line ["abc","abcdef"] = Wcf("a*{,def}"),
  
      %% Constant wildcard.
      ["abcdef"] = Wcf("abcdef"),
  
      %% Negative tests.
      ?line [] = Wcf("b*"),
      ?line [] = Wcf("bufflig"),
  