Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r1101 -r2802
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1101)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 2802)
@@ -192,9 +192,9 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
-	Set Result = $$$OK
-	If (..ClassDefinition = "") { Set Result = $$$ERROR($$$GeneralError,"Klasse met naam "_ClassName_" bestaat niet")  }
-	Quit Result
+
+	Quit:(..ClassDefinition = "") $$$ERROR($$$GeneralError,"Klasse met naam "_ClassName_" bestaat niet")
+	Quit $$$OK
 ]]></Implementation>
 </Method>