Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r746 -r751
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 746)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 751)
@@ -391,6 +391,21 @@
 	Quit ReturnWaarde
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeIndienNietLeeg">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubString:%String,Scheidingsteken:%String=", "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If SubString'= "" {
+		If String'=""{
+			Set String = String_Scheidingsteken
+		}
+		Set String = String_SubString
+	}
+	Quit String
+]]></Implementation>
+</Method>
 </Class>