Index: DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml
===================================================================
diff -u -r1723 -r1724
--- DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 1723)
+++ DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml	(.../DataMGroepClassificatie.cls.xml)	(revision 1724)
@@ -21,7 +21,10 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Status = ##super(ClassificatieID)
-	Set ..SortSleutel = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5)_$E(100+$P(..DataKlas,"\",3),2,3)_$P(..DataKlas,"\",6)_" "
+	If ($$$ISOK(Status))
+	{
+		Set ..SortSleutel = $E(100+$P(..DataKlas,"\",2),2,3)_$P(..DataKlas,"\",5)_$E(100+$P(..DataKlas,"\",3),2,3)_$P(..DataKlas,"\",6)_" "
+	}
 	Quit Status
 ]]></Implementation>
 </Method>