Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r743 -r846
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 743)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 846)
@@ -509,6 +509,28 @@
 	Quit KeyList
 ]]></Implementation>
 </Method>
+
+<Method name="ListHasEqualValues">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ListHasEqualValues As %Boolean = ( List1.Count() = List2.Count() )
+	if ListHasEqualValues {	 	
+		set itList1 = ##class(TECH.ListIterator).%New(List1)
+		set itList2 = ##class(TECH.ListIterator).%New(List2)
+		while itList1.HasNext() && ListHasEqualValues {
+			#dim Value1 As %String = itList1.Next()
+			#dim Value2 As %String = itList2.Next()
+			#dim Key1 As %String = itList1.Key()
+			#dim Key2 As %String = itList2.Key()
+			set ListHasEqualValues = ( Value1 = Value2) && ( Key1 = Key2 )
+		}
+	}
+	
+	quit ListHasEqualValues
+]]></Implementation>
+</Method>
 </Class>