Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r724 -r745
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 724)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 745)
@@ -253,7 +253,7 @@
 
 <Method name="WordWrap">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Input:%String,CharactersPerLijn:%Integer</FormalSpec>
+<FormalSpec>Input:%String,CharactersPerLijn:%Integer,Delimiter:%String=" "</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set Input = ..Replace(Input,$$$TAB,"   ") 
@@ -267,18 +267,18 @@
 	while itInputLijnen.HasNext() {
 		set InputLijnTeller = InputLijnTeller + 1
 		#dim InputLijn As %String = itInputLijnen.Next()
-		set itWoord = ##class(TECH.PiecesIterator).%New(InputLijn," ")
+		set itWoord = ##class(TECH.PiecesIterator).%New(InputLijn,Delimiter)
 		while itWoord.HasNext(){
 			#dim Woord As %String = itWoord.Next()
 			#dim HuidigeLijn As %Integer = Lijnen.Count()
-			#dim Lijn = Lijnen.GetAt(HuidigeLijn)_Woord_" "
+			#dim Lijn = Lijnen.GetAt(HuidigeLijn)_Woord_Delimiter
 			If $Length(Lijn) < CharactersPerLijn { 
 				Do Lijnen.SetAt(Lijn,HuidigeLijn)
 			}Else{
-				Do Lijnen.Insert(Woord_" ")
+				Do Lijnen.Insert(Woord_Delimiter)
 			}
 		}
-		do Lijnen.SetAt(..RightTrim(Lijnen.GetAt(Lijnen.Size)," "),Lijnen.Size)
+		do Lijnen.SetAt(..RightTrim(Lijnen.GetAt(Lijnen.Size),Delimiter),Lijnen.Size)
 		if InputLijnTeller < $length(Input,$$$CRLF) do Lijnen.Insert("")
 	}
 	quit Lijnen