Index: DOM/PM/impl/DataM/DataMClassificatie.cls.xml
===================================================================
diff -u -r1723 -r1724
--- DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 1723)
+++ DOM/PM/impl/DataM/DataMClassificatie.cls.xml	(.../DataMClassificatie.cls.xml)	(revision 1724)
@@ -21,7 +21,12 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ClassificatieID = ClassificatieID
-	Quit $$$OK
+	Set Status = $$$OK
+	If ('$Data(^KLAS("K",..ClassificatieID)))
+	{
+		Set Status = $$$ERROR($$$GeneralError,"Classificatie bestaat niet")
+	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -47,9 +52,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Key="K"
 	If (i%DataKlas = "") {
-		Set i%DataKlas = ^KLAS(Key,..ClassificatieID)
+		Set i%DataKlas = ^KLAS("K",..ClassificatieID)
 	}
 	Quit i%DataKlas
 ]]></Implementation>