Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml
===================================================================
diff -u -r937 -r939
--- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.cls.xml)	(revision 937)
+++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml	(.../DataMHoofdgroepClassificatie.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:39">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 11:06:17">
 <Class name="DOM.PM.impl.DataM.DataMHoofdgroepClassificatie">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Classificatie,%RegisteredObject</Super>
-<TimeChanged>62164,47740.009038</TimeChanged>
-<TimeCreated>62159,61822.287586</TimeCreated>
+<TimeChanged>62160,40051.971501</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="SortSleutel">
@@ -61,13 +60,12 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set ClassificatieLijst = ##class(%ListOfObjects).%New()
-	Set Key = $Order(^KPGR1(""))
-	While (Key '= "")
-	{
+	Set Key = $Order(^KPGR1(..SortSleutel))
+	Set SortSleutel = $ZSTRIP(..SortSleutel,"*W")
+	While (Key [ SortSleutel)
+	{		
 		Set Groep = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(Key)
-		If ($E(Key,1,$L(..SortSleutel)-1)_" " = ..SortSleutel){
-			Do ClassificatieLijst.Insert(Groep)
-		}
+		Do ClassificatieLijst.Insert(Groep)
 		Set Key = $Order(^KPGR1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)
@@ -85,5 +83,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="757653658"/>
+<Checksum value="1319552536"/>
 </Export>