Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u -r3122 -r3123
--- TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 3122)
+++ TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 3123)
@@ -48,7 +48,9 @@
 <Method name="Equals">
 <FormalSpec>dto:TECH.DataTransferObject</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..GetHash() = dto.GetHash()
+<Implementation><![CDATA[
+	quit:$$$Not($IsObject(dto)) $$$False
+	quit ..GetHash() = dto.GetHash()
 ]]></Implementation>
 </Method>
 </Class>