Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3262 -r3278
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3262)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3278)
@@ -323,6 +323,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SplitLongWord">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InputLijn:%String,CharactersPerWoord:%Integer,Delimiter:%String=" "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijn As %String = ""
+	
+	#dim InputLijnTeller As %Boolean = 0
+
+	set itWoord = ##class(TECH.PiecesIterator).%New(InputLijn,Delimiter)
+	while itWoord.HasNext(){
+		#dim Woord As %String = itWoord.Next()
+		If $Length(Woord) > CharactersPerWoord {
+			Set Lijn = Lijn _$Extract(Woord, 1, CharactersPerWoord) _Delimiter
+			Set Woord = $Extract(Woord, CharactersPerWoord+1, *)
+		} 
+		Set Lijn = Lijn _Woord _Delimiter
+	}
+	quit Lijn
+]]></Implementation>
+</Method>
+
 <Method name="AddTrailingSpace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>