Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml
===================================================================
diff -u -r33396 -r33421
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 33396)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 33421)
@@ -87,6 +87,16 @@
 	do $$$AssertFalse(..ProductIDIterator.HasNext())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Iterator is leeg na toevoegen van 2 tekstlijnen">
+<Implementation><![CDATA[
+	Do ..ToeleveringStub.MaakNieuweTekstLijn("tekst A")
+	Do ..ToeleveringStub.MaakNieuweTekstLijn("tekst B")
+	
+	Set ..ProductIDIterator = ..ToeleveringService.GeefProductIDIterator(..ToeleveringID)	
+	do $$$AssertFalse(..ProductIDIterator.HasNext())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r33372 -r33421
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33372)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 33421)
@@ -63,7 +63,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-	Quit ##class(TECH.DynamicIterator).%New(Toelevering.GeefProductLijnIterator(),"Item.GeefProductID()")
+	Quit ##class(TECH.DynamicIterator).%New(Toelevering.GeefProductLijnIterator(),"Item.GeefProductID()","Item.%Extends(""DOM.AKP.ProductToeleveringLijn"")=1")
 ]]></Implementation>
 </Method>
 </Class>