Index: TECH/ListbuildIterator.cls.xml
===================================================================
diff -u -r901 -r2335
--- TECH/ListbuildIterator.cls.xml	(.../ListbuildIterator.cls.xml)	(revision 901)
+++ TECH/ListbuildIterator.cls.xml	(.../ListbuildIterator.cls.xml)	(revision 2335)
@@ -25,12 +25,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Listbuild:%List</FormalSpec>
+<FormalSpec>Listbuild:%List=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Listbuild = Listbuild
-	Set ..CurrentItem = 0
+	Do ..Reset()
 	Set ..ListbuildLength = $listlength(..Listbuild)
 	Quit $$$OK
 ]]></Implementation>
@@ -61,6 +61,11 @@
 <Implementation><![CDATA[	Quit ..CurrentItem
 ]]></Implementation>
 </Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Set ..CurrentItem = 0
+]]></Implementation>
+</Method>
 </Class>