Index: DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml
===================================================================
diff -u -r54623 -r54773
--- DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 54623)
+++ DOM/PM/impl/Langtekst/TAOREnkelOnderdeelTekstBepaler.cls.xml	(.../TAOREnkelOnderdeelTekstBepaler.cls.xml)	(revision 54773)
@@ -69,20 +69,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkBodemEnRug">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do ..VerwerkBodem()
-	Do ..Append("; ")
-	Do ..VerwerkRug()
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkFront">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KleurCode As TECH.String = ..TAORKenmerken.LadeKleur
-	Do ..Append(..KleurCodeVertaler.GeefVertaling(KleurCode))
+	Do ..Append(..Vertaler.GeefVertaling("front", "", $$$True)_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
 ]]></Implementation>
 </Method>
 
@@ -112,14 +103,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkRugMetHouders">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KleurCode As TECH.String = ..KleurCodeBepaler.GeefBinnenKleurCode(..TAORKenmerken, ..HalffabItemsBoom)
-	Do ..Append(..Vertaler.GeefVertaling("RugMetHouders")_":"_..KleurCodeVertaler.GeefVertaling(KleurCode))
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkVolledig">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/FrontOnly/Test.cls.xml
===================================================================
diff -u -r54772 -r54773
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/FrontOnly/Test.cls.xml	(.../Test.cls.xml)	(revision 54772)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/FrontOnly/Test.cls.xml	(.../Test.cls.xml)	(revision 54773)
@@ -30,7 +30,7 @@
 
 	Do List.Insert("[DiepteAfkorting]:500x[BreedteAfkorting]:600")
 	Do List.Insert("******")
-	Do List.Insert("[Enkel] [W]")
+	Do List.Insert("[Enkel] [front]:[W]")
 	Do List.Insert("******")
 
 	Quit List