Index: vhUnitTest/TECH/DynamicIterator/TestOnItem/Statement.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DynamicIterator/TestOnItem/Statement.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DynamicIterator/TestOnItem/Statement.cls.xml	(revision 2603)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DynamicIterator.TestOnItem.Statement">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Invoke">
+<FormalSpec>Data:vhUnitTest.TECH.DynamicIterator.Object</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit Data.GeefID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/DynamicIterator/TestOnItem.cls.xml
===================================================================
diff -u -r2589 -r2603
--- vhUnitTest/TECH/DynamicIterator/TestOnItem.cls.xml	(.../TestOnItem.cls.xml)	(revision 2589)
+++ vhUnitTest/TECH/DynamicIterator/TestOnItem.cls.xml	(.../TestOnItem.cls.xml)	(revision 2603)
@@ -52,6 +52,17 @@
 	do $$$AssertEquals(Iterator.Next(),8)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: item statement class">
+<Implementation><![CDATA[
+	set Object = ##class(vhUnitTest.TECH.DynamicIterator.Object).%New(5)
+	#dim MainIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Object)
+	#dim Statement As TECH.RegisteredObject = ##class(vhUnitTest.TECH.DynamicIterator.TestOnItem.Statement).%New()
+	set Iterator = ##class(TECH.DynamicIterator).%New(MainIterator, Statement)
+	
+	do $$$AssertEquals(Iterator.Next(), 5)
+]]></Implementation>
+</Method>
 </Class>