Index: TECH/Persistent.cls.xml
===================================================================
diff -u -r2224 -r2230
--- TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2224)
+++ TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 2230)
@@ -22,7 +22,7 @@
 <Method name="Save">
 <Implementation><![CDATA[
 	Set Status = ..%Save()
-	If ('Status)
+	If ($$$ISERR(Status))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon object van type "_..%ClassName(1)_" niet opslaan",Status))
 	}
@@ -51,7 +51,7 @@
 <ReturnType>%ObjectHandle</ReturnType>
 <Implementation><![CDATA[
 	Set Status = ..%DeleteId(Id)
-	If ('Status)
+	If ($$$ISERR(Status))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon object van type "_..%ClassName(1)_" met id "_Id_" niet verwijderen",Status))
 	}