Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3278 -r3280
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3278)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3280)
@@ -281,6 +281,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RightTrimMultiple">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,CharsToTrim...:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Positie As %Integer = $Length(Input)
+	#dim TeVerwijderenKarakters As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.CharsToTrim)
+	While (TeVerwijderenKarakters.Find(..CharAt(Input,Positie)) > 0)
+	{
+		Set Positie = Positie - 1
+	}
+	Quit $Extract(Input,1,Positie)
+]]></Implementation>
+</Method>
+
 <Method name="CharAt">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Positie:%Integer</FormalSpec>