Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2239 -r2429
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2239)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2429)
@@ -520,6 +520,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Ellipsis">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,MaxLength:%Integer,EllipsisSign:%String="~"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(String) > MaxLength) {
+		Set String = $Extract(String,1,MaxLength-$L(EllipsisSign)) _ EllipsisSign
+	}
+	Quit String
+]]></Implementation>
+</Method>
+
 <Method name="Equals">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String,SubStrings...:%String</FormalSpec>