Index: DOM/PM/RVGProduct/RVGMeubel.cls.xml
===================================================================
diff -u -r68767 -r69144
--- DOM/PM/RVGProduct/RVGMeubel.cls.xml	(.../RVGMeubel.cls.xml)	(revision 68767)
+++ DOM/PM/RVGProduct/RVGMeubel.cls.xml	(.../RVGMeubel.cls.xml)	(revision 69144)
@@ -15,6 +15,11 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
 </Method>
+
+<Method name="GeefKleurVanKorttekst">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml
===================================================================
diff -u -r68767 -r69144
--- DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml	(.../RVGMeubel.cls.xml)	(revision 68767)
+++ DOM/PM/RVGProduct/impl/RVGMeubel.cls.xml	(.../RVGMeubel.cls.xml)	(revision 69144)
@@ -36,6 +36,12 @@
 <Implementation><![CDATA[	Quit ..GeefProductSpecificatie().GeefVariant()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurVanKorttekst">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $E(..GeefKorttekst(),24,25)
+]]></Implementation>
+</Method>
 </Class>