Index: OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml
===================================================================
diff -u -r68860 -r68865
--- OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 68860)
+++ OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 68865)
@@ -60,8 +60,8 @@
 <Implementation><![CDATA[
 	#Dim it as TECH.Iterator
 	#Dim rs as %ResultSet
-	
-	Set it=##class(OBJTimpl.Herbevoorrading.OphalenVoorraad).%New().GeefIteratorKARDEXVoorraad()
+	Set Ophaler = ##class(OBJTimpl.Herbevoorrading.OphalenVoorraad).%New()
+	Set it=Ophaler.GeefIteratorKARDEXVoorraad()
 	While it.HasNext()
 	{
 		Set rs=it.Next()
@@ -84,8 +84,8 @@
 <Implementation><![CDATA[
 	#Dim it as TECH.Iterator
 	#Dim rs as %ResultSet
-	
-	Set it=##class(OBJTimpl.Herbevoorrading.OphalenVoorraad).%New().GeefIteratorPODVoorraad()
+	Set Ophaler = ##class(OBJTimpl.Herbevoorrading.OphalenVoorraad).%New()
+	Set it=Ophaler.GeefIteratorPODVoorraad()
 	While it.HasNext()
 	{
 		Set rs=it.Next()