anchor.diff:  			     (LastChar =/= $/)) ->
   	    ?hdrt("directory and last-char is a /", []),
   	    ServerName = which_server_name(ConfigDB), 
  -	    Port = port_string( which_port(ConfigDB) ),
  -	    URL = "http://" ++ ServerName ++ Port ++ ReqURI ++ "/",
  +	    Port = port_string(which_port(ConfigDB)),
  +	    Protocol = get_protocol(SocketType),
  +	    URL = Protocol ++ ServerName ++ Port ++ ReqURI ++ "/",
   	    ReasonPhrase = httpd_util:reason_phrase(301),
   	    Message = httpd_util:message(301, URL, ConfigDB),
   	    {proceed,
  
positive.code: port_string(Port) ->
      ":" ++ integer_to_list(Port).
  
  %% real_name
  
  real_name(ConfigDB, RequestURI, []) ->
  
negative.code: 
  do_alias(#mod{config_db   = ConfigDB, 
  	      request_uri = ReqURI,
  	      socket_type = SocketType,
  	      data        = Data}) ->
      {ShortPath, Path, AfterPath} = 
  	real_name(ConfigDB, ReqURI, which_alias(ConfigDB)),
  