Index: TECH/StreamUtils.cls.xml
===================================================================
diff -u -r2269 -r3131
--- TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 2269)
+++ TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 3131)
@@ -53,6 +53,21 @@
 	Quit Stream
 ]]></Implementation>
 </Method>
+
+<Method name="TextBetween">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Stream:%Stream,First:%String,Last:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim TextBetween As %String = ""
+	do Stream.Rewind()
+	while ( '$length(TextBetween) ) && ( 'Stream.AtEnd ) {
+		#dim String As %String = Stream.Read()
+		set TextBetween = $$$TextBetween(String,First,Last)
+	}
+	quit TextBetween
+]]></Implementation>
+</Method>
 </Class>