Index: TECH/GlobalMultiDimIterator.cls.xml
===================================================================
diff -u -r3134 -r3220
--- TECH/GlobalMultiDimIterator.cls.xml	(.../GlobalMultiDimIterator.cls.xml)	(revision 3134)
+++ TECH/GlobalMultiDimIterator.cls.xml	(.../GlobalMultiDimIterator.cls.xml)	(revision 3220)
@@ -34,7 +34,7 @@
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim HasNext As %Boolean = $query(@..CurrentGlobalReference) '= ""
+	#dim HasNext As %Boolean = '..AtEnd($query(@..CurrentGlobalReference))
 	quit HasNext
 ]]></Implementation>
 </Method>
@@ -63,6 +63,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AtEnd">
+<FormalSpec>GlobalReference</FormalSpec>
+<Implementation><![CDATA[
+	Set AtEnd=0
+	Quit:GlobalReference="" 1
+	For I=0:1:..InitialGlobalReferenceSubscriptLength
+	{
+		Set:$QSubscript(GlobalReference,I)'=$QSubscript(..InitialGlobalReference,I) AtEnd=1
+	}
+	Quit AtEnd
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[	set ..CurrentGlobalReference = ..InitialGlobalReference
 ]]></Implementation>