Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml
===================================================================
diff -u -r31600 -r57792
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml	(.../HalffabSpecInfo.cls.xml)	(revision 31600)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml	(.../HalffabSpecInfo.cls.xml)	(revision 57792)
@@ -74,7 +74,17 @@
 
 <Method name="GeefHalffabSpec">
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
-<Implementation><![CDATA[	Quit $zobjclassmethod(..HalffabSpec,"%New")
+<Implementation><![CDATA[
+	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec
+	Try {
+		Set HalffabSpec = $zobjclassmethod(..HalffabSpec,"%New")
+	} Catch {
+		#dim OorspronkelijkeException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("New van HalffabSpec klasse '" _ ..HalffabSpec _ "' is mislukt.")
+		Do Exception.VoegToeInnerExceptie(OorspronkelijkeException)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Quit HalffabSpec
 ]]></Implementation>
 </Method>