Index: DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 939)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 13:15:44">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 11:06:03">
 <Class name="DOM.PM.impl.DataM.DataMGroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Classificatie,%RegisteredObject</Super>
-<TimeChanged>62164,47744.586448</TimeChanged>
-<TimeCreated>62159,61822.043699</TimeCreated>
+<TimeChanged>62160,40037.654054</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -66,13 +65,12 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set ClassificatieLijst = ##class(%ListOfObjects).%New()
-	Set Key = $Order(^KPSG1(""))
-	While (Key '= "")
+	Set Key = $Order(^KPSG1(..SortSleutel))
+	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
+	While (Key [ SortSleutel)
 	{
 		Set Subgroep = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(Key)
-		If ($E(Key,1,$L(..SortSleutel)-1)_" " = ..SortSleutel){
-			Do ClassificatieLijst.Insert(Subgroep)
-		}
+		Do ClassificatieLijst.Insert(Subgroep)
 		Set Key = $Order(^KPSG1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)
@@ -90,5 +88,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2151051098"/>
+<Checksum value="3573231377"/>
 </Export>