Index: DOM/PM/impl/ProductLangtekst.cls.xml
===================================================================
diff -u -r29059 -r30577
--- DOM/PM/impl/ProductLangtekst.cls.xml	(.../ProductLangtekst.cls.xml)	(revision 29059)
+++ DOM/PM/impl/ProductLangtekst.cls.xml	(.../ProductLangtekst.cls.xml)	(revision 30577)
@@ -43,11 +43,8 @@
 <Method name="GeefString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim HoofdingSeparator As TECH.String = "~"
-	If $Length(..Hoofding) > 26 {
-		Set HoofdingSeparator = ";"
-	}
-	#dim Langtekst As %String = ..Hoofding_HoofdingSeparator_##class(TECH.ListUtils).ListToPieces(..Detail,"~")
+	#dim Separator As TECH.String = "~"
+	#dim Langtekst As %String = ..Hoofding_Separator_##class(TECH.ListUtils).ListToPieces(..Detail,Separator)
 	#dim List As %ListOfDataTypes = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefLangtekstSplitser().SplitsLangtekstInDelen(Langtekst,"")
 	quit ##class(TECH.ListUtils).ListToPieces(List,$$$CRLF)
 ]]></Implementation>