Index: vhUnitTest/TECH/ReversedListIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ReversedListIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ReversedListIterator.cls.xml	(revision 869)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 15:55:04">
+<Class name="vhUnitTest.TECH.ReversedListIterator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62131,57353.702567</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.ReversedListIterator")
+
+]]></Content>
+</UDLText>
+
+<Method name="TestLoop">
+<Implementation><![CDATA[
+	
+	set List = ##class(%ListOfDataTypes).%New()
+	
+	for Counter=1:1:5 do List.Insert(Counter)
+
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	while itList.HasNext() {
+		do $$$AssertEquals(Counter,itList.Next())
+		set Counter = Counter - 1	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TestRemoveItems">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	for Counter=1:1:5 do List.Insert(Counter)
+
+	set itList = ##class(TECH.ReversedListIterator).%New(List)
+	while itList.HasNext() {
+		do itList.Next()
+		if Counter = 3 do List.RemoveAt(itList.Key())
+		set Counter = Counter - 1	
+		
+	}
+
+	do $$$AssertEquals(List.Size,4)
+	do $$$AssertEquals(List.GetAt(1),1)
+	do $$$AssertEquals(List.GetAt(2),2)
+	do $$$AssertEquals(List.GetAt(3),4)
+	do $$$AssertEquals(List.GetAt(4),5)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="786890510"/>
+</Export>
Index: TECH/ReversedListIterator.cls.xml
===================================================================
diff -u
--- TECH/ReversedListIterator.cls.xml	(revision 0)
+++ TECH/ReversedListIterator.cls.xml	(revision 869)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 15:42:17">
+<Class name="TECH.ReversedListIterator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Iterator,%RegisteredObject</Super>
+<TimeChanged>62131,56586.294191</TimeChanged>
+<TimeCreated>62118,40201.383138</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="List">
+<Type>%AbstractList</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Key">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CurrentKey">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Item">
+<Type>%CacheString</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Key '= ""
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>List:%AbstractList</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..List = List
+	Set Key = ""
+	Set ..Item = ..List.GetPrevious(.Key)
+	Set ..Key = Key
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set Result = ..Item
+	Set Key = ..Key
+	Set ..CurrentKey = Key
+	Set ..Item = ..List.GetPrevious(.Key)
+	Set ..Key = Key
+	Quit Result
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Returns the list key of the current object
+
+]]></Content>
+</UDLText>
+
+<Method name="Key">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..CurrentKey
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2690253850"/>
+</Export>