anchor.diff:  		      $r -> reverse;
   		      _  -> normal
   		  end,
  -	    {DirStr, Pos, Dir};
  +	    {DirStr, Pos, Dir, "/?"++Q};
   	_ ->
  -	    {Path, 1, normal}
  +	    {Path, 1, normal, ""}
       end.
       
   
  
positive.code: 	    sizestr(FI)]),
      ?Debug("Entry:~p", [Entry]),
      {true, {Name, FI#file_info.mtime, FI#file_info.size, Entry}};
  file_entry(_Err, _, _Name) ->
      ?Debug("no entry for ~p: ~p", [_Name, _Err]),
      false.
  
  
negative.code: list_tail() ->
      "</table>".
  
  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),
  