Index: DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml
===================================================================
diff -u -r57703 -r60787
--- DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 57703)
+++ DOM/PM/impl/DataM/DataMMATBasisCreator.cls.xml	(.../DataMMATBasisCreator.cls.xml)	(revision 60787)
@@ -28,8 +28,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KleurCodeVoorKorttelkst As %String = $Piece(IngegevenKenmerken.Kleur, "-"_IngegevenKenmerken.Materiaal, 1)
-	Quit $J(KleurCodeVoorKorttelkst,4)
+	#dim KleurCodeVoorKorttekst As %String = ##class(DOM.PM.impl.MATKleurUtils).%New().GeefKleurCode(IngegevenKenmerken.Kleur, IngegevenKenmerken.Materiaal)
+	Quit $J(KleurCodeVoorKorttekst,4)
 ]]></Implementation>
 </Method>