Index: TECH/GlobalIterator.cls.xml
===================================================================
diff -u -r1405 -r1408
--- TECH/GlobalIterator.cls.xml	(.../GlobalIterator.cls.xml)	(revision 1405)
+++ TECH/GlobalIterator.cls.xml	(.../GlobalIterator.cls.xml)	(revision 1408)
@@ -75,7 +75,6 @@
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 	#dim Waarde As %String = ..GeefWaarde()
-	Set ..Key = ..HuidigePos
 	Set ..HuidigePos = $Order(@..Global@(..HuidigePos))
 	Quit Waarde
 ]]></Implementation>
@@ -95,7 +94,9 @@
 <Method name="GeefWaarde">
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[	Quit @..Global@(..HuidigePos)
+<Implementation><![CDATA[
+	Set ..Key = ..HuidigePos
+	Quit @..Global@(..HuidigePos)
 ]]></Implementation>
 </Method>