anchor.diff:  list_tail() ->
       "</table>".
   
  -file_entry({ok, FI}, _DirName, Name) ->
  +file_entry({ok, FI}, _DirName, Name, Qry) ->
       ?Debug("file_entry(~p) ", [Name]),
       Ext = filename:extension(Name),
       {Gif, Alt} = list_gif(FI#file_info.type, Ext),
  
positive.code: 	   "<td>~s</td>\n"
  	   "<td>~s</td>\n"
  	   "</tr>\n",
  	   [yaws_api:url_encode(Name),
  	    FI#file_info.size,
  	    "/icons/" ++ Gif,
  	    Alt,
  
negative.code: 
  list_directory(CliSock, List, DirName, Req) ->
      {abs_path, Path} = Req#http_request.path,
      {DirStr, Pos, Direction, Qry} = parse_query(Path),
      ?Debug("List=~p Dirname~p~n", [List, DirName]), 
      [Up | L0] = lists:zf(
  		  fun(F) ->
  			  File = DirName ++ [$/|F],
  			  FI = file:read_file_info(File),
  			  file_entry(FI, DirName, F, Qry)
  		  end, [".." | List]),
      L1 = lists:keysort(Pos, L0),
      L2 = if Direction == normal -> L1;
  