Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2801 -r2841
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2801)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2841)
@@ -562,6 +562,16 @@
 <Implementation><![CDATA[	Quit $$$Not(..IsEmpty(String))
 ]]></Implementation>
 </Method>
+
+<Method name="Sort">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String=";",Comparator:TECH.Comparator.IComparator=##class(TECH.Comparator.StringComparator).%New()</FormalSpec>
+<Implementation><![CDATA[
+	#dim TeSorteren = ##class(TECH.ListUtils).PiecesToList(String,Delimiter)
+	Do ##class(TECH.Algo.Sort.MergeSort).Sort(.TeSorteren, Comparator)
+	Quit ##class(TECH.ListUtils).ListToPieces(TeSorteren,Delimiter)
+]]></Implementation>
+</Method>
 </Class>