Index: TECH/StreamUtils.cls.xml
===================================================================
diff -u -r3481 -r3483
--- TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 3481)
+++ TECH/StreamUtils.cls.xml	(.../StreamUtils.cls.xml)	(revision 3483)
@@ -11,7 +11,7 @@
 	Do Stream.Rewind()
 	while ('Stream.AtEnd) && ('IsTextInStream) {
 		#dim Line As %String = Stream.Read()
-		set IsTextInStream = ( Line[Text )
+		Set IsTextInStream = ( Line[Text )
 	}
 	Do Stream.Rewind()
 	
@@ -23,16 +23,16 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Stream:%Stream.Object,Search:%String,Replace:%String</FormalSpec>
 <Implementation><![CDATA[
-	set tmpStream = ##class(%GlobalCharacterStream).%New()
+	Set tmpStream = ##class(%GlobalCharacterStream).%New()
 	Do Stream.Rewind()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Stream.Rewind())
 	while 'Stream.AtEnd {
 		#dim String As %String = Stream.Read()
 		Do tmpStream.Write(##class(TECH.StringUtils).Replace(String,.Search,.Replace))
 	}	
-	Do Stream.Clear()
-	Do Stream.CopyFrom(tmpStream)
-	Do Stream.Rewind()
-	quit
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Stream.Clear())
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Stream.CopyFrom(tmpStream))
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Stream.Rewind())
 ]]></Implementation>
 </Method>
 
@@ -62,7 +62,7 @@
 	Do Stream.Rewind()
 	while ( '$length(TextBetween) ) && ( 'Stream.AtEnd ) {
 		#dim String As %String = Stream.Read()
-		set TextBetween = $$$TextBetween(String,First,Last)
+		Set TextBetween = $$$TextBetween(String,First,Last)
 	}
 	quit TextBetween
 ]]></Implementation>