bm_host_url complete_urlWhat it does:
Takes a URL and returns the host portion of it (i.e., http://hostname.com/), which always contains a trailing slash. Returns empty string if complete_url wasn't parseable.Defined in: /web/philip/tcl/bookmarks-defs.tcl
Source code:
    if { [regexp {([^:\"]+://[^/]+)} $complete_url host_url] } {
	return "$host_url/"
    } else {
	return ""
    }