Index: TECH/ListIterator.cls.xml
===================================================================
diff -u -r9 -r573
--- TECH/ListIterator.cls.xml	(.../ListIterator.cls.xml)	(revision 9)
+++ TECH/ListIterator.cls.xml	(.../ListIterator.cls.xml)	(revision 573)
@@ -43,9 +43,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..List = List
-	Set Key = ""
-	Set ..Item = ..List.GetNext(.Key)
-	Set ..Key = Key
+	Do ..Reset()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -84,6 +82,16 @@
 <Implementation><![CDATA[	Quit ..CurrentKey
 ]]></Implementation>
 </Method>
+
+<Method name="Reset">
+<Description>
+Brengt de iterator terug in de begintoestand, zodat je opnieuw kan itereren</Description>
+<Implementation><![CDATA[
+	Set Key = ""
+	Set ..Item = ..List.GetNext(.Key)
+	Set ..Key = Key
+]]></Implementation>
+</Method>
 </Class>