Index: TECH/DynamicIterator.cls.xml
===================================================================
diff -u -r2589 -r2604
--- TECH/DynamicIterator.cls.xml	(.../DynamicIterator.cls.xml)	(revision 2589)
+++ TECH/DynamicIterator.cls.xml	(.../DynamicIterator.cls.xml)	(revision 2604)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="ItemStatement">
-<Type>TECH.String</Type>
+<Type>%CacheString</Type>
 <Private>1</Private>
 </Property>
 
@@ -30,7 +30,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Iterator:TECH.Iterator,ItemStatement:%String="",Filter:%CacheString=""</FormalSpec>
+<FormalSpec>Iterator:TECH.Iterator,ItemStatement:%CacheString="",Filter:%CacheString=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -73,6 +73,8 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	quit:$IsObject(..ItemStatement) ..ItemStatement.Invoke(Item)
+	
 	quit:$$$IsEmptyString(..ItemStatement) Item
 	
 	new result,Code