Index: DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml
===================================================================
diff -u -r34108 -r34148
--- DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml	(.../TOBInfoBepaler.cls.xml)	(revision 34108)
+++ DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml	(.../TOBInfoBepaler.cls.xml)	(revision 34148)
@@ -9,6 +9,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VertaalAPI">
+<Type>DOM.common.Transl.VertaalAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KleurCodeVertaler">
 <Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
@@ -19,14 +24,15 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	Set ..KleurCodeVertaler = ..GeefKleurCodeVertaler(Taal)
+	Set ..VertaalAPI = ##class(DOM.common.Transl.impl.VertaalAPI).%New()
+	Set ..KleurCodeVertaler = ..VertaalAPI.GeefKleurCodeVertaler(Taal)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalTOBInfo">
 <FormalSpec>GADataProduct:Prod.GAData.Product</FormalSpec>
-<ReturnType>DOM.PM.Product</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set LangtekstTOBInfo = ""
 	
@@ -54,14 +60,5 @@
 <Implementation><![CDATA[	Quit $Extract(Korttekst, 22, 25)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKleurCodeVertaler">
-<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
-<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
-<Implementation><![CDATA[
-	Set VertaalGroepen = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes())
-	Quit ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen, Taal)
-]]></Implementation>
-</Method>
 </Class>
 </Export>