Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r687 -r834
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 687)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 834)
@@ -384,5 +384,15 @@
 <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[
+	set 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>
 </Export>