Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u -r2677 -r3122
--- TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 2677)
+++ TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 3122)
@@ -35,6 +35,22 @@
 	quit Stream
 ]]></Implementation>
 </Method>
+
+<Method name="GetHash">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Stream = ##class(%GlobalCharacterStream).%New()
+	do $this.XMLExportToStream(.Stream)
+	quit $system.Encryption.SHA1HashStream(Stream)
+]]></Implementation>
+</Method>
+
+<Method name="Equals">
+<FormalSpec>dto:TECH.DataTransferObject</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..GetHash() = dto.GetHash()
+]]></Implementation>
+</Method>
 </Class>