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>