Index: DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml
===================================================================
diff -u -r1133 -r1612
--- DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml	(.../OrgaluxProductGamma.cls.xml)	(revision 1133)
+++ DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml	(.../OrgaluxProductGamma.cls.xml)	(revision 1612)
@@ -290,7 +290,7 @@
 <Method name="GetProductLijnen">
 <ReturnType>DOM.dto.VertaaldeDataList</ReturnType>
 <Implementation><![CDATA[
-	set itMateriaal = ##class(DOM.PM.OL.Gamma.enu.Materiaal).Iterator()
+	set itMateriaal = ##class(DOM.PM.OL.Gamma.enu.Materiaal).ValueListIterator()
 	set VertalingList = ##class(DOM.dto.VertaaldeDataList).%New()
 	while itMateriaal.HasNext()
 	{	set Canonisch = itMateriaal.Next()
@@ -1480,6 +1480,13 @@
  }
 
  
+ if ..Debug {
+	set idx=""
+	set dbgAantal=0
+	for  set idx=$o(arUnIDs(idx)) quit:idx=""  set dbgAantal=$i(dbgAantal)
+	do WL^vhDBG("# UnIDs : "_dbgAantal)
+ }
+ 
  Kill ..arKenmerkUnIDs
  Merge ..arKenmerkUnIDs = arUnIDs
  Kill arUnIDs
Index: TECH/Enumeration.cls.xml
===================================================================
diff -u -r1584 -r1612
--- TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 1584)
+++ TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 1612)
@@ -67,12 +67,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Iterator">
+<Method name="ValueListIterator">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.ListIterator</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..ValueList())
 ]]></Implementation>
 </Method>
+
+<Method name="DisplayListIterator">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.ListIterator</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..DisplayList())
+]]></Implementation>
+</Method>
 </Class>
 </Export>