Index: DOM/DomeinContext.cls.xml
===================================================================
diff -u -r37960 -r41359
--- DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 37960)
+++ DOM/DomeinContext.cls.xml	(.../DomeinContext.cls.xml)	(revision 41359)
@@ -162,6 +162,11 @@
 <Default>LegacyGebruikerAPI</Default>
 </Parameter>
 
+<Parameter name="LegacyProductAPI">
+<Type>%String</Type>
+<Default>LegacyProductAPI</Default>
+</Parameter>
+
 <Parameter name="VertaalAPI">
 <Type>%String</Type>
 <Default>VertaalAPI</Default>
@@ -649,6 +654,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLegacyProductAPI">
+<ReturnType>DOM.PM.LegacyProductAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#LegacyProductAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushLegacyProductAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#LegacyProductAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopLegacyProductAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#LegacyProductAPI)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantTypeAPI">
 <ReturnType>DOM.VKP.KlantTypeAPI</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAPIObject(..#KlantTypeAPI)
@@ -794,6 +816,7 @@
 	
 	// Put defaults on the stack
 	Do ..PushProductAPIClassName("DOM.PM.impl.ProductAPI")
+	Do ..PushLegacyProductAPIClassName("DOM.PM.impl.LegacyProductAPI")
 	Do ..PushOrderAPIClassName("DOM.VKP.impl.DataM.DataMOrderAPI")
 	Do ..PushToeleveringAPIClassName("DOM.AKP.impl.DataM.DataMToeleveringAPI")
 	Do ..PushAankoopPrijsAPIClassName("DOM.AKP.impl.DataM.DataMAankoopPrijsAPI")