Index: TECH/Executer/impl/ClassMethod.cls.xml
===================================================================
diff -u -r1215 -r2166
--- TECH/Executer/impl/ClassMethod.cls.xml	(.../ClassMethod.cls.xml)	(revision 1215)
+++ TECH/Executer/impl/ClassMethod.cls.xml	(.../ClassMethod.cls.xml)	(revision 2166)
@@ -15,6 +15,19 @@
 <Implementation><![CDATA[	quit $classMethod(ClassName,MethodName,Parameters...)
 ]]></Implementation>
 </Method>
+
+<Method name="Stream">
+<FormalSpec><![CDATA[Stream:%Stream.Object,&Output:%String,Input:%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>
 
 
Index: vhUnitTest/TECH/Executer/impl/ClassMethod/Stream/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Executer/impl/ClassMethod/Stream/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Executer/impl/ClassMethod/Stream/Test.cls.xml	(revision 2166)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Executer.impl.ClassMethod.Stream.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Using manueel created stream">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+
+	do Stream.WriteLine("set Output = Input + 1")
+	do Stream.WriteLine("set Output = Output _ ""A"" ")
+	
+	do ..AssertStream(Stream)
+]]></Implementation>
+</Method>
+
+<Method name="Test: using method implementation">
+<Implementation><![CDATA[
+	set Stream = ##class(%Dictionary.MethodDefinition).%OpenId($classname()_"||"_"Source").Implementation
+	
+	do ..AssertStream(Stream)
+]]></Implementation>
+</Method>
+
+<Method name="Source">
+<Abstract>1</Abstract>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	set Output = Input + 1
+	set Output = Output _ "A"
+]]></Implementation>
+</Method>
+
+<Method name="AssertStream">
+<FormalSpec>Stream:%Stream.Object</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Executer = ##class(TECH.Executer.impl.ClassMethod).%New()
+	#dim Result As %CacheString = 0 
+	do Executer.Stream(Stream,.Result,5)
+	
+	do $$$AssertEquals(Result,"6A")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>