Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r748 -r788
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 748)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 788)
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-01-31 13:03:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 16:56:50">
 <Class name="TECH.StringUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62118,29428.208649</TimeChanged>
+<TimeChanged>62122,53431.034896</TimeChanged>
 <TimeCreated>62118,40201.439469</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Replace">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>String,F,T,From,Cnt</FormalSpec>
+<FormalSpec>String,F,T,From,Cnt,Continue=0</FormalSpec>
 <Implementation><![CDATA[
  	Set P=1
  	For I=1:1:$G(From) Set P=$F(String,F,P) Quit:'P
@@ -19,6 +19,9 @@
  	.Set $E(String,P-$L(F),P-1)=T
  	.Set P=P-$L(F)+$L(T)
  	.Set Cnt=Cnt-1
+ 	if Continue {
+	  if String[F Set String = ..Replace(String,.F,.T,.From,.Cnt,.Continue)
+ 	}
  	Quit String
 ]]></Implementation>
 </Method>
@@ -30,5 +33,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1519191299"/>
+<Checksum value="1429247905"/>
 </Export>