Index: library/http/http.tcl
===================================================================
RCS file: /cvs/kit/tcl/library/http/http.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -b -w -r1.1 -r1.2
--- library/http/http.tcl	2005/08/22 19:13:34	1.1
+++ library/http/http.tcl	2005/10/14 21:27:26	1.2
@@ -300,7 +300,7 @@
     # Recognize user:pass@host URLs also, although we do not do anything
     # with that info yet.
 
-    set exp {^(([^:]*)://)?([^@]+@)?([^/:]+)(:([0-9]+))?(/.*)?$}
+    set exp {^(([^:]*)://)?([^@:/]+@)?([^/:]+)(:([0-9]+))?(/.*)?$}
     if {![regexp -nocase $exp $url x prefix proto user host y port srvurl]} {
 	unset $token
 	return -code error "Unsupported URL: $url"
