Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r931 -r946
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 931)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 08:45:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 15:55:21">
 <Class name="TECH.ClassInfo.ClassDefinition">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.ClassInfo.QNameFinder</Super>
-<TimeChanged>62160,31607.215478</TimeChanged>
+<TimeChanged>62168,57401.729789</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ClassDefinition">
@@ -96,19 +96,14 @@
 </Method>
 
 <Method name="%OnNew">
-<Description><![CDATA[
-This callback method is invoked by the <METHOD>%New</METHOD> method to 
-provide notification that a new instance of an object is being created.
-
-<P>If this method returns an error then the object will not be created.]]></Description>
 <FormalSpec>ClassName:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
 	Set Result = $$$OK
-	If (..ClassDefinition = "") { Set Result = 0 }
+	If (..ClassDefinition = "") { Set Result = $$$ERROR($$$GeneralError,"Klasse met naam "_ClassName_" bestaat niet")  }
 	Quit Result
 ]]></Implementation>
 </Method>
@@ -154,5 +149,5 @@
 <Type>%Library.CustomStorage</Type>
 </Storage>
 </Class>
-<Checksum value="3758335963"/>
+<Checksum value="1514264919"/>
 </Export>