Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1496 -r1597
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1496)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1597)
@@ -376,7 +376,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set Lijst = Lijst _ Delim _ Waarde
-	if ..StartsWith(Lijst,Delim) set Lijst = $piece(Lijst,Delim,2,$length(Lijst,Delim))
+	if ($Length(Delim) && ..StartsWith(Lijst,Delim)) set Lijst = $piece(Lijst,Delim,2,$length(Lijst,Delim))
 	quit Lijst
 ]]></Implementation>
 </Method>