Index: TECH/ReversedListIterator.cls.xml
===================================================================
diff -u -r9 -r326
--- TECH/ReversedListIterator.cls.xml	(.../ReversedListIterator.cls.xml)	(revision 9)
+++ TECH/ReversedListIterator.cls.xml	(.../ReversedListIterator.cls.xml)	(revision 326)
@@ -43,9 +43,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..List = List
-	Set Key = ""
-	Set ..Item = ..List.GetPrevious(.Key)
-	Set ..Key = Key
+	#dim Key As %String = ""
+	if List.Count() {
+		set ..Item = ..List.GetPrevious(.Key)
+		set ..Key = Key
+	} else {
+		set ..Key = ""	
+	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -57,8 +61,8 @@
 Causes an error if HasNext() returns false</Description>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	Set Result = ..Item
-	Set Key = ..Key
+	#dim Result As %CacheString = ..Item
+	#dim Key As %String= ..Key
 	Set ..CurrentKey = Key
 	Set ..Item = ..List.GetPrevious(.Key)
 	Set ..Key = Key