Index: TECH/IteratorUitvoerderOpdrachtException.cls.xml
===================================================================
diff -u -r2250 -r2556
--- TECH/IteratorUitvoerderOpdrachtException.cls.xml	(.../IteratorUitvoerderOpdrachtException.cls.xml)	(revision 2250)
+++ TECH/IteratorUitvoerderOpdrachtException.cls.xml	(.../IteratorUitvoerderOpdrachtException.cls.xml)	(revision 2556)
@@ -30,6 +30,12 @@
 <Implementation><![CDATA[	quit "Fout bij het uitvoeren van "_..CommandClassname_" voor iterator item "_..IteratorItem
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.enu.ExceptionCode).GeneralError()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Exceptions/FileException.cls.xml
===================================================================
diff -u -r9 -r2556
--- TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 9)
+++ TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 2556)
@@ -11,7 +11,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Omschrijving:%String,Status:%Status</FormalSpec>
+<FormalSpec>Omschrijving:%String,Status:%Status=$$$OK</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>