--- a/HierarchicalURI.st	Fri Jul 25 21:41:00 2003 +0200
+++ b/HierarchicalURI.st	Sun Jul 27 19:44:44 2003 +0200
@@ -238,6 +238,25 @@
     "
 ! !
 
+!HierarchicalURI methodsFor:'comparing'!
+
+= anHierarchicalUri
+
+    ^ self class == anHierarchicalUri class 
+      and:[self scheme = anHierarchicalUri scheme
+      and:[pathSegments = anHierarchicalUri pathSegments
+      and:[authority = anHierarchicalUri authority
+      and:[self isAbsolute = anHierarchicalUri isAbsolute
+      and:[self isDirectory = anHierarchicalUri isDirectory
+      and:[query = anHierarchicalUri query
+      and:[fragment = anHierarchicalUri fragment]]]]]]]
+!
+
+hash
+
+    ^ pathSegments hash xor:query hash
+! !
+
 !HierarchicalURI methodsFor:'copying'!
 
 postCopy
@@ -528,5 +547,5 @@
 !HierarchicalURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HierarchicalURI.st,v 1.8 2003-07-14 14:28:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HierarchicalURI.st,v 1.9 2003-07-27 17:44:44 stefan Exp $'
 ! !