Index: APPS/EC/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r39318 -r40109
--- APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 39318)
+++ APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 40109)
@@ -59,8 +59,7 @@
 	Set LijnIt = ##class(TECH.ListIterator).%New(..Lijnen)
 	While (LijnIt.HasNext())
 	{
-		Set a = LijnIt.Next()
-		Do a.Accept(Visitor)
+		Do LijnIt.Next().Accept(Visitor)
 	}
 	Do Visitor.Finalize()
 ]]></Implementation>