Index: DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml
===================================================================
diff -u -r994 -r1075
--- DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml	(.../DataMProductClassificatie.cls.xml)	(revision 994)
+++ DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml	(.../DataMProductClassificatie.cls.xml)	(revision 1075)
@@ -1,10 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 14:35:54">
+<Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMProductClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.ProductClassificatie,%RegisteredObject</Super>
-<TimeChanged>62187,52559.929191</TimeChanged>
-<TimeCreated>62159,61823.272971</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ProductNummer">
@@ -46,19 +44,19 @@
 
 <Method name="GeefHoofdGroep">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",1)
+<Implementation><![CDATA[	Quit $$DISPLS^KLASS($P(..Data,"\",1))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGroep">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",2)
+<Implementation><![CDATA[	Quit $$DISPLS^KLASS($P(..Data,"\",2))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSubGroep">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Data,"\",3)
+<Implementation><![CDATA[	Quit $$DISPLS^KLASS($P(..Data,"\",3))
 ]]></Implementation>
 </Method>
 
@@ -79,5 +77,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="922441536"/>
 </Export>