Index: TECH/Persistent/impl/PersistentObjectAPI.cls.xml
===================================================================
diff -u -r1534 -r1705
--- TECH/Persistent/impl/PersistentObjectAPI.cls.xml	(.../PersistentObjectAPI.cls.xml)	(revision 1534)
+++ TECH/Persistent/impl/PersistentObjectAPI.cls.xml	(.../PersistentObjectAPI.cls.xml)	(revision 1705)
@@ -11,7 +11,17 @@
 
 <Method name="New">
 <FormalSpec>ClassName:%String,Paramaters...:%CacheString</FormalSpec>
-<Implementation><![CDATA[	quit $classmethod(ClassName,"%New",Paramaters...)
+<ReturnType>%Base</ReturnType>
+<Implementation><![CDATA[
+	
+	try {
+		#dim Instance As %Base = $classmethod(ClassName,"%New",Paramaters...)
+	} catch {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Failed to create : "_ClassName)
+		do Exception.VoegToeInnerExceptie(##class(TECH.ExceptionHandler).Catch())
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	quit Instance
 ]]></Implementation>
 </Method>