Index: TECH/Net/URI.cls.xml
===================================================================
diff -u -r346 -r406
--- TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 346)
+++ TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 406)
@@ -51,7 +51,7 @@
 		Set URI.Schema = $Piece(URL, ":", 1)
 		#dim VanafHost = $Piece(URL, "://", 2)
 		Set URI.Host = $Piece(VanafHost, ..#HierarchischeSeparator, 1)
-		Set URI.Path = ..#HierarchischeSeparator _ $Piece(VanafHost, ..#HierarchischeSeparator, 2)
+		Set URI.Path = ..#HierarchischeSeparator _ $Extract(VanafHost, $Find(VanafHost, ..#HierarchischeSeparator), *)
 		
 		Quit URI
 ]]></Implementation>