Index: TECH/Persistent/impl/PersistentObjectAPI.cls.xml
===================================================================
diff -u -r1913 -r2486
--- TECH/Persistent/impl/PersistentObjectAPI.cls.xml	(.../PersistentObjectAPI.cls.xml)	(revision 1913)
+++ TECH/Persistent/impl/PersistentObjectAPI.cls.xml	(.../PersistentObjectAPI.cls.xml)	(revision 2486)
@@ -13,7 +13,11 @@
 <Method name="OpenID">
 <FormalSpec>ClassName:%String,ID:%String</FormalSpec>
 <ReturnType>%Base</ReturnType>
-<Implementation><![CDATA[	quit $classMethod(ClassName,"%OpenId",ID)
+<Implementation><![CDATA[
+	#dim Status As %Status
+	#dim Result = $classMethod(ClassName,"%OpenId",ID,,.Status)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status)
+	quit Result
 ]]></Implementation>
 </Method>
 </Class>