Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml
===================================================================
diff -u -r2217 -r2592
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2217)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2592)
@@ -99,9 +99,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Conversie opgegeven waarde bevat een conversie script">
+<Method name="Test: Conversie opgegeven waarde bevat een conversie script - Gebruikt ObjectIn">
 <Implementation><![CDATA[
 	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	do ConversionData.Add("AsInteger","AsInteger","Set Output = ObjectIn.AsInteger * 2")
+
+	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	do $$$AssertEquals(ObjectTo.AsString,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie opgegeven waarde bevat een conversie script - Gebruik Input">
+<Implementation><![CDATA[
+	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
 	do ConversionData.Add("AsInteger","AsInteger","Set Output = Input * 2")
 
 	set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
Index: TECH/ObjectUtils/impl/ObjectConverter.cls.xml
===================================================================
diff -u -r2213 -r2592
--- TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2213)
+++ TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2592)
@@ -3,11 +3,6 @@
 <Class name="TECH.ObjectUtils.impl.ObjectConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Executer">
-<Type>TECH.Executer.impl.ClassMethod</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="InputValidator">
 <Type>TECH.ObjectUtils.impl.ObjectConverter.Validator</Type>
 <Private>1</Private>
@@ -27,7 +22,6 @@
 <Implementation><![CDATA[
 	set ..InputValidator = $$$Implementation(InputValidator,##class(TECH.ObjectUtils.impl.ObjectConverter.Validator).%New())
 	set ..OutputValidator = $$$Implementation(OutputValidator,##class(TECH.ObjectUtils.impl.ObjectConverter.Validator).%New())
-	set ..Executer = ##class(TECH.Executer.impl.ClassMethod).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -51,7 +45,7 @@
 		    #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom)
 		    
 			if Conversion.Script.Size > 0 {
-				do ..Executer.Stream(Conversion.Script,.Output,Input)	
+				do ..ExecuteStream(Conversion.Script,.Output,Input,ObjectFrom,ObjectTo)	
 			} else {
 				set Output = Input	
 			}
@@ -92,6 +86,19 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ExecuteStream">
+<FormalSpec><![CDATA[Stream:%Stream.Object,&Output:%String,Input:%String,ObjectIn:%CacheString="",ObjectOut:%CacheString]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	do Stream.Rewind()
+	while $$$Not(Stream.AtEnd) {
+		#dim Line As %String = Stream.ReadLine()
+		set:$$$StartsWithVar(Line,$$$TAB) Line = ##class(TECH.StringUtils).StripFirstPart(Line,$$$TAB)
+		xecute Line
+	}
+]]></Implementation>
+</Method>
 </Class>