Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3290 -r3295
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3290)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3295)
@@ -354,8 +354,10 @@
 			Set Lijn = Lijn _$Extract(Woord, 1, CharactersPerWoord) _Delimiter
 			Set Woord = $Extract(Woord, CharactersPerWoord+1, *)
 			Set Woord = ..SplitLongWord(Woord, CharactersPerWoord, Delimiter)
-		} 
-		Set Lijn = Lijn _Woord _Delimiter
+		} Else {
+			Set Woord = Woord _Delimiter
+		}
+		Set Lijn = Lijn _Woord
 	}
 	quit Lijn
 ]]></Implementation>