Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3376 -r3426
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3376)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3426)
@@ -644,6 +644,22 @@
 	Quit Text
 ]]></Implementation>
 </Method>
+
+<Method name="Concatenate">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Strings...:%CacheString</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Strings)
+	#dim Stream As %Stream = ##class(%GlobalCharacterStream).%New()
+	
+	While (Iterator.HasNext()) {
+		Do Stream.Write(Iterator.Next())
+	}
+	
+	Quit Stream.Read($SYSTEM.SYS.MaxLocalLength())
+]]></Implementation>
+</Method>
 </Class>