Index: DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml
===================================================================
diff -u -r57682 -r60787
--- DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 57682)
+++ DOM/PM/impl/DataM/DataMMATTAORCreator.cls.xml	(.../DataMMATTAORCreator.cls.xml)	(revision 60787)
@@ -33,8 +33,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>