Index: TECH/Net/URI.cls.xml
===================================================================
diff -u -r406 -r1279
--- TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 406)
+++ TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1279)
@@ -51,8 +51,14 @@
 		Set URI.Schema = $Piece(URL, ":", 1)
 		#dim VanafHost = $Piece(URL, "://", 2)
 		Set URI.Host = $Piece(VanafHost, ..#HierarchischeSeparator, 1)
-		Set URI.Path = ..#HierarchischeSeparator _ $Extract(VanafHost, $Find(VanafHost, ..#HierarchischeSeparator), *)
 		
+		#dim PositieVanSeparatorNaHostname = $Find(VanafHost, ..#HierarchischeSeparator)
+		If 0 = PositieVanSeparatorNaHostname {
+			Set URI.Path = ""
+		} Else {
+			Set URI.Path = ..#HierarchischeSeparator _ $Extract(VanafHost, PositieVanSeparatorNaHostname, *)
+		}
+		
 		Quit URI
 ]]></Implementation>
 </Method>
@@ -91,6 +97,12 @@
 		Quit ..Schema _ "://" _ Authority _ ..Path _ ..Query _ ..Fragment
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestandNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).GetLastPart( ..Path, "/" )
+]]></Implementation>
+</Method>
 </Class>